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Chapter 1 

General Information 



introduction 



This manual describes the Hewlett-Packard HOST Pascal compiler and its 
operation on the HP Model 6UOOO Logic Development Station. 

HOST Pascal Compiler 

The HOST Pascal compiler is an application program that translates Pascal 
source programs into a pseudo opcode file that will execute on the HP 
Model 6^000. 

The HOST Pascal language is a superset of "standard" Pascal. "Standard" 
here refers to the ISO (International Standards Organization) Pascal 
Standard . 

It is assumed that the user has some knowledge of the Pascal language as 
defined by Jensen and Wirth and other reference books on staoidard Pascal. 

HOST Pascal Extensions 

HOST Pascal contains enhancements that provide more versatility for 
programming. 

• The CASE statement can have an OTHERWISE clause. 

• Constant -value expressions are allowed in places where a con- 
stant is allowed in standard Pascal. 

• CONST, TYPE, and VAR declaration sections may be in any order 
after the optional LABEL declaration section and any number of 
CONST, TYPE, or VAR declaration sections is allowed. 

• Djmamic memory procedures, MARK and RELEASE, may be used in the 
same program using the standard memory management procedures 
NEW and DISPOSE. 

• Compiler directives may be specified in a flexible manner using 
the $ character as a delimiter. 

• Constant lists in the CASE statement and RECORD variant defini- 
tions may use the ".."symbol to denote a range of values. 

• Constant arrays, records, and sets may be defined in the CONST 
declaration section. 
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Functions may return a value of any assignable data type. 

There is an extended syntax for string literals that uses the # 
character to allow non-printing characters to be incorporated 
into string literals. 

There is a predefined double precision real data type called 
LONGREAL. 

There is a predefined family of data types called STRINGS. 
These are similar to packed arrays of character but have a 
dynamic length attribute that allows the number of characters 
contained in the string to be variable. 

There are a number of predefined procedures and functions that 
perform useful operations with STRING data types. 

Predefined procedures APPEND and CLOSE, and predefined func- 
tions POSITION and LINEPOS enhance input/output capability. 

Predefined functions HEX, OCTAL, and BINARY perform number base 
conversions. 



Chapter 2 

Source Code Considerations 



Introduction 



The HOST Pascal Compiler will run. on any HP 6UOOO system, provided that 
the memory expansion module is present in the logic chassis. The HOST 
Pascal Compiler allows the user the development of Pascal programs for 
the execution of repetitive tasks, performing mathematical calculations, 
and solving problems. Basically, the HOST compiler allows the 6UOOO sys- 
tem to be used as a mini -computer. 

The HOST compiler accepts as input a sequence of statements from one or 
more source code files for conversion into a quasi-machine code which is 
stored in the 6UOOO for future use. This chapter discusses some source 
code features that must be considered when writing a source program. 



Alphabetic Characters 

The alphabetic characters include all upper and lower case characters, 
i.e., 'A' thru 'Z' and 'a' thru 'z\ 

Numeric Characters 

The numeric characters include the digits 0 thru 9 ^'or decimal numbers. 
Special Characters 

The special character set (sj^bols) and their use in Pascal programming 
are described as follows: 



Character Set 



Character 
(Symbol) 



Description 



Use 



Apostrophe 



String Literal Delimiter. 



Asterisk 



Arithmetic operator-multiply; set 
intersection. 



Asterisk/Parenthesis Comment delimiters. 



{...} 



Braces 



Comment delimiters. 
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NOTE 



The "(*" and comment delimiters are equal in 

power and can be used interchangeably without regard 
to the right delimiter used* The and com- 
ment delimiters are equal in power and can be used 
interchangeably without regard to the left delimiter 
used. 



[.•.] Brackets Set constructor; structured constant 

delimiter; array index delimiters. 

( ) Parenthesis /Period Set constructor; structured con- 
stant; array index delimiters. 



NOTE 



The *'[" 3Xid "(." set delimiters are equal in power 
and can be used interchangeably without regard to the 
right delimiter used. The s^id ".)" set 

delimiters are equal in power and can be used inter- 
changeably without regard to the left delimiter used. 



Colon 



(...) 



Comma 

Dollar sign 

Equal sign 
Minus sign 

Parentheses 

Period 
Plus sign 



Case constant list delimiter; state- 
ment label delimiter; field width 
delimiter; identifier list 

delimiter. 

Argument list separator; structured 
constant value list separator; 
enumerated type list separator. 



Compiler 
delimiter. 



option 



(directive) 



Equality (relational operator) . 

Arithmetic operator-subtract/ 
negate; set difference. 

Delimits a parameter list or an ex- 
pression group; delimits an 
enumerated type. 

End of program; decimal point; field 
selector. 

Arithmetic operator-addition; string 
concatenation; set union. 
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Pound sign 

Semicolon 

Slant bar 
Underscore 

Caret 

At 



Indicates non-printing character in 
string constant. 

Parameter separator; statement 
separator. 

Aritlimetic operator-real divide. 

Allowed in identifiers "but not as 
first character. 

Indicates file buffer accessing; in- 
dicates pointer dereferencing. 

Indicates file buffer accessing; in- 
dicates pointer dereferencing. 



NOTE 



The caret and "at" are equal in power and can be used 
interchangeably . 



Symbol 
Symbol 
Symbol 

Sj^bol 
Symbol 

Ssnnbol 
Symbol 



Assignment indicator. 

Greater than (relational operator) . 

Greater than or equal to (relational 
operator); superset of. 

Less than (relational operator) . 

Less than or equal to (relational 
operator); subset of. 

Not equal (relational operator) . 

Subrange . 
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Reserved Words 

The following words are reserved* They have special meaning to the HOST 
compiler and cannot be used as identifiers or user-defined symbols. 



Reserved Word(s) 

AND 

ARRAY 

BEGIN, END 

CASE, OF, OTHERWISE 

CONST 

DIV 

FILE 

FOR, TO, DOWNTO, DO 

FUNCTION 

GOTO 

IF, THEN, ELSE 
IN 

LABEL 

MOD 

NIL 

NOT 

OR 

PACKED 

PROCEDURE 

PROGRAM 

RECORD 

REPEAT, UNTIL 



Description 

Booleaji conjunction operator. 

A structured type. 

Delimit a compound statement. 

A conditional statement. 

Indicates constant definition section. 

Integer division operator. 

A structured type. 

A repetitive statement. 

Indicates a function declaration. 

Control transfer statement. 

A conditional statement. 

Set inclusion operator. 

Indicates label definition section. 

Integer modulus operator. 

Special pointer value. 

Boolean negation operator. 

Boolean disjunction operator. 

Controls storage allocation for structured 
type. 

Indicates a procedure declaration. 

Program heading. 

A structured type. 

A repetitive statement. 
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SET 

TYPE 

VAR 

WHILE, DO 
WITH, DO 



A structured tjrpe* 

Indicates a type definition section. 
Indicates a variable declaration section, 
A repetitive statement* 
Opens record scope ( s ) . 



Identifiers 

Identifiers are selected by the programmer to denote constants, types, 
variables, procedures, functions, and programs. An identifier consists 
of a letter followed by any combination of upper-case or lower-case let- 
ters, digits, or underscore (_) . The syntactical construction of an 
identifier is shown in Figure 2-1. 



IDENTIFIER. 



LETTER 






r 





LETTER 



DIGIT 



Figure 2-1. Identifier Syntax 
When constructing identifiers, the following rules should be observed: 

a. The first character of an identifier must be a letter. 

b. Identifiers may contain any number of characters up to a source 
line in length. All characters are significant. 

c. A reserved word cannot be used as an identifier. 

d. Upper and lower case letters are not differentiated within 
identifiers. 

e. Each identifier must be unique within its scope, i.e., with a 
procedure or function in which they are defined. 

f. All identifiers must be defined before they are used, except 
that a pointer type identifier may refer to a type that is 
defined later in the same declaration section, and a program 
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parameter may refer to a file variable that is declared in the 
program block. 



Predefined Identifiers 

There are certain predefined identifiers that will be recognized by the 
HOST compiler without being defined in the program. These predefined 
identifiers are listed in the following paragraphs. 



Predefined Procedures 



The following list of predefined procedures will be recognized by the 
compiler without further definition (refer to Chapter 7 for an explana- 
tion of each procedure): 



append 

close 

dispose 

get 

halt 

mark 



new 

pack 

page 

put 

read 

readln 

release 



reset 

rewrite 

setstrlen 

strappend 

strdelete 

strinsert 

strmove 



strread 

strwrite 

timeout 

unpack 

write 

writeln 



Predefined Functions 



The following list of predefined functions will be recognized by the com- 
piler without further definition (refer to Chapter 7 for an explanation 
of each function): 



abs exp position strltrim 

arc tan hex pred strmax 

binary ioresult round strpos 

chr linepos sin strrpt 

cos In sqr strrtrim 

eof octal sqrt succ 

eoln odd str trunc 

ord strlen 



Predefined Files 



The following predefined files will be recognized by the compiler without 
further definition; they must, however, be indicated in the program pa- 
rameter list if they are used in the program. (Refer to Chapter 6 for an 
explanation of each file.) 

input output 
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Predefined Types 

The following list of predefined types will be recognized by the compiler 
without further definition (refer to Chapter U for an explanation of each 
type) : 

boolean integer real text 

char longreal string 



Predefined Constants 

The following list of predefined constants will be recognized by the com- 
piler without further definition (refer to Chapter 5 for an explanation 
of each constant): 

false minint 
maxint true 



Directives 

A directive introduces a procedure or function declaration for which 
there is no block specified. 

forward Indicates to the compiler that a block for the 

routine appears later in the program* 

String Literals 

A string literal is a sequence of ASCII characters enclosed by 
apostrophes • String literals are constants of the PAC type or the string 
type. String literals containing a single character may also be of the 
predefined type CHAR. 

a. Non -printing (and other) characters are encoded after a pound 
symbol (#). 

Example : 

#U8 is the representation for '0*. 

b. If a string literal is to contain an apostrophe, the apostrophe 
is written twice. 

c. String literals must be contained on a single line. 

d. Characters between apostrophes must be in the range chr(32) 
thru chr(126) , i.e. , 'space* thru *tilde\ 

Additional information on string literals and character constants may be 
f oxmd in Chapter 5 • 
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Comments 

Words and messages contained in braces {•..}, or parentheses /asterisks 
are comments used to document the program. Comments are ignored 
by the compiler • A comment has the form: 

{character string} or (^character string} or 

(^character string*) or {character string*) 



Conventions to be observed when using comments are listed below: 

a. Since a comment is equivalent to a blank, it may be placed 
anywhere in the program that a blank is permitted. 

b, A comment beginning with a left brace ({) need not terminate 
with a right brace (}). A comment beginning with the compound 
symbol (* need not terminate with the compound sjnnbol *)• 



HOST Compiler Options 

The compiler interprets the following construct as a compiler directive: 

$ < comp i le r_opt ions >$ 

where <compiler_options> may be any or all of the following: 

ANSI PAGE LINESIZE 

INCLUDE lOCHECK TITLE 

BUFFERS RANGE XREF 

NOSAVE CODE SWAP 

EXTENSIONS PARTIAL^EVAL SHORTID 

LIST WIDTH SEGMENT 



Compiler options may be inserted between any two tokens (identifiers, 
numbers, string literals, and special symbols). They are used to inform 
the compiler about changing needs within the program. A compiler option 
is a separator (as is a space or a comment) in the Pascal program. 
Compiler options must begin with a dollar sign and close with a dollar 
sign. A compiler error will result if no closing dollar sign appears on 
the line. A compiler option must exist entirely on one line. 

The compiler option specification may include an option value. If no op- 
tion value is specified, then, for options that require an ON - OFF 
value, ON is assumed. Otherwise, for options that require an integer or 
string literal value, the option is set to its default value. 

The compiler option S3nitax is defined here, and the syntax diagram is 
shown in Figure 2-2. 
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< compiler opt ions > 

<option> 

< opt ion value > 

< separator > 



<option> {<separator> <option>} 
<identifier> <option value> | <empty> 
ON I OFF I < signed integer > j 

<string literal> | <empty> 



COMPILER 
OPTION 



'-0 



o 



IDENTIFIER 



■c 



ON 



OFF 



SIGNED 
INTEGER 



STRING 
LITERAL 



7^ 



Figure 2-2. Compiler Options Syntax 

The compiler options are described in the following paragraphs. 

ANSI The compiler option ANSI, when ON, causes warning messages 

to be issued for all features of HOST Pascal that are not 
part of ANSI Standard Pascal. Default is OFF. 

INCLUDE The compiler option INCLUDE is followed by a string literal 

that names a file containing text to be included at the 
current position in the program. The included code may not 
contain additional INCLUDE options. The remainder of the 
line, after the closing must be blank. INCLUDE has no 

default. 

BUFFERS The compiler option BUFFERS specifies the number of 128 

word blocks to be made available for the file buffer. 
Allowable values are 1, 2, 1*, 8, or I6. This option ap- 
plies to all succeeding variable definitions involving 
files. If the standard files INPUT and OUTPUT appear in 
the program heading and the BUFFERS option is to apply to 
them, the option must appear before the program heading. 
Default is 1* 
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The compiler option NOSAVE specifies that the values of 
structured constants, i.e., constant arrays and constant 
records, will not be available to use in a later structured 
constant definition. This can result in a significant 
savings of memory at compile time. Default is OFF. 

The Compiler option EXTENSIONS allows language features 
that are extensions to HP Standard Pascal to be used. 
Default is OFF. 

The compiler option LIST, when off, suppresses source code 
listing, except for lines that contain errors. Default is 
ON. 

The compiler option PAGE causes listing to continue at the 
top of the next page if LIST is ON. PAGE has no default 
value. 

The compiler option lOCHECK specifies that code will be 
emitted so that an I/O error will cause an immediate run- 
time error. Default is ON. 

The compiler option RANGE specifies that nm-time checks of 
array index, parameter, and assignment values be carried 
out. Default is ON. 

The compiler option CODE specifies that object code will be 
generated. If CODE OFF is ever specified, no object file 
will be generated regardless of any other CODE ON direc- 
tives. Default is ON. 

The compiler option PARTIAL_EVAL , when ON, causes evalua- 
tion of a Boolean expression to cease when the left operand 
evaluates to an opposing value. Evaluation ceases when the 
operand preceding AND evaluates false, and when the operand 
preceding OR evaluates TRUE. The option, when OFF, forces 
evaluation of the entire Boolean expression. Default is 
OFF. 

The compiler option WIDTH specifies the number of sig- 
nificant characters in a source line. Additional charac- 
ters are ignored. Default is 2U0 characters. 

The compiler option LINESIZE specifies the maximvim number 
of characters in a line that a text file will be able to 
handle. It applies to all successive variable declarations 
that involve text files. If the standard files INPUT and 
OUTPUT appear in the program heading and the LINESIZE op- 
tion is to apply to them, it must appear before the program 
heading. Default is 2U0. 
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TITLE 



The compiler option TITLE specifies that the string 
parameter will be printed at the top of any subsequent 
pages of the listing, provided that LIST is ON. Default is 
all blanks. 



XREF 



The compiler option XREF specifies that a cross reference 
of the program will be generated at the end of the listing. 
Default is OFF. 



SWAP 



The compiler option SWAP, when ON, allows the compiler to 
compile a considerably larger program but at the cost of 
lower compilation speed. The compiler is roughly divided 
into two segments or overlays. One segment processes the 
declaration portion of a block, and the other segment 
processes the executable statements. These compiler seg- 
ments are swapped in and out of memory as needed during the 
course of the compilation. Because all the compiler code 
is not in memory at once, more working space and symbol 
table space is available to the compiler. The SWAP option, 
if it is used, must be specified before the PROGRAM head- 
ing. Otherwise, it is ignored. Default is OFF. 



SHORTID The compiler option SHORTID, when ON, causes only the first 

six characters of identifiers to be significant. This can 
save memory space during compilation since only the first 
six characters of identifiers are stored in the symbol 
table. Ths SHORTID option must be specified before the 
PROGRAM heading if it is to be used. Otherwise, it is ig- 
nored. Default is OFF. 



SEGMENT The compiler option SEGMENT specifies that the p-code for 

the next procedure or function will be put into a separate 
segment or overlay. (See Chapter 3 for more detail.) 
There is no value associated with the SEGMENT option. 
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Chapter 3 

General Form Of A Pascal Program 



Introduction 

Every Pascal program consists of a main program module and may contain as 
many procedure and function routines as necessary to properly execute the 
program. 



Main Program Module 

The compilation unit begins with the special compiler directive, "HOST", 
followed by the main program. 

A main program contains a heading and a block, and concludes with a 
period (.) as indicated in Figure 3-1 • 



PROGRAM-,>( Sr) — <lir) — k3 



Figure 3-1. Program Syntax 

Program Heading 

The word PROGRAM is a reserved word and is always the first word of a 
Pascal program heading. The program heading may specify a list of 
program parameters, as shown in Figure 3-2. 



HEADING 



( program ^ 



IDENTIFIER 



U(T> 



IDENTIFIER 



Figure 3-2. Heading Syntax 



The identifier gives the progreim a name, but has no other significance 
within the program. 
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The progrsim parameter list contains identifiers of type FILE through 
which the program communicates with the external environment. All of the 
file variables listed as program parameters will be associated with the 
name of a physical file or an I/O device when the program is executed. 
In the case of files INPUT and OUTPUT a file name is specified as part of 
the run command. For each additional program parameter, after the run 
command is issued and before program execution, the system will prompt 
the operator for the name of a physical file or I/O device. 

A few examples of program headings follow: 

"HOST" 

PROGRAM execute; 
"HOST" 

PROGRAM applepie (input, output); 
"HOST" 

PROGRAM payroll (data, output); 



NOTE 



All identifiers must be defined before they are used, 
except that a pointer tjrpe may reference a tjrpe name 
that is defined later in the same declaration sec- 
tion, and a program parameter may reference a vari- 
able that is defined in the program block. 



Program Block 

The program block contains declarations and a compound statement. The 
declaration consists of labels, constants, types ^ variables, procedures, 
and functions. Identifiers and labels declared in the main program block 
are known as global identifiers aind labels. The compoiind statement in 
the main program block is known as the program body. Execution of the 
program begins at the compound statement. The syntax diagram for the 
program block is shown in Figure 3-3 • 



3-2 



Model 6U817A 
HP6UOOO 
HOST Pascal 



PROGRAM 
BLOCK 



^-» ^CONST^ 



TYPE ^ ^ 



LABEL y 



INTEGER 



IDENTIFIER 



KZ> 





CONSTANT 














1 






STRUCTURED 






CONSTANT 





IDENTIFIER 



TYPE 



^-»* ( VAR ^ IDENTIFIER Lp.^^T^ 



TYPE 



FUNCTION 
HEADING 



PROCEDURE 
HEADING 




BLOCK 



DIRECTIVE 



BEGIN 



STATEMENT 
LIST 



■0 




Figure 3-3. Program Block Syntax 
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Segment 

SEGMENT The compiler option SEGMENT provides a means of dividing a 

program* s p-code into segments or overlays which may be 
loaded into memory individually. A program that is too 
large to fit into memory all at once may be divided and 
thus executed. The SEGMENT option has no value associated 
with it. It specifies that the next procedure or function 
encountered by the compiler will become a "segment proce- 
dure" or "segment function". The p-code for the segment 
procedure or function plus the p-code for any procedure or 
functions contained therein will be put into a separate p- 
code segment which can be loaded into memory as desired. 
P-code for the main program body and for any routines which 
are not part of segment procedure or functions is put into 
the main program segment which is always resident in memory 
during execution. When a program is run, the p-code for 
the main program segment is loaded into memory. The code 
for other segments is loaded from disc by simply calling 
the segment procedure or function in the usual way. The 
p-code for a segment remains in memory as long as the pro- 
cedure or function is active. After a segment procedure or 
function returns, the memory containing the p-code for that 
segment is used for other purposes. Therefore, a sub- 
sequent activation of that segment requires that the p-code 
be loaded again. Recursive calls to segment procedures or 
functions require only one copy of the segment's p-code to 
be in memory. The SEGMENT option must be specified before 
the heading of the desired procedure function. A total of 
Ik segments may be specified in addition to the main 
program segment. A segment procedure or function may it- 
self contain up to 255 procedures, functions, array con- 
stants, or record constants. A segment procedure or func- 
tion may itself contain nested segment procedures or 
functions. 
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Chapter 4 

Pascal Program Declarations 



Introduction 

Every prograjn consists of a heading and a block. The heading has been 
discussed in Chapter 3. The block consists of a declaration section, and 
a statement section that specifies the action to be executed* Items 
identified in the program declaration are considered to be global in 
scope. 

A complete block contains the following parts: 



a. 


<LABEL declaration> 


b. 


<CONSTant declarations > 


c. 


<TYPE definitions > 


d. 


<VARiable declarations> 


e. 


<PROCEDURE and FUNCTION declarations> 


f . 


< statements > 



The declaration syntax is shoxm in Figure U-1. 



The LABEL declaration, if used, must be placed ahead of the other 
declarations in the block. The CONSTant, TYPE, VARiable, PROCEDURE, and 
FUNCTION parts may follow in any order and may be repeated as often as 
required. A procedure or function may be made into a segment or overlay 
by using the $SEGMENT$ compiler directive. A total of Ik segment 
procedures or functions, in addition to the main progratm segment, may be 
specified. Each segment may contain up to 255 procedures, functions ar- 
ray constants, or record constants. The repetition of CONST, TYPE and 
VAR declarations is an HP extension to standard Pascal. 

Each part of the declaration section is discussed in detail in the fol- 
lowing paragraphs. The statement section is discussed in Chapter 5* 
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^■^ ^const) — ^ 




IDENTIFIER 



KB- 



TYPE 



VAR ^ 



IDENTIFIER 



MO 



TYPE 



^ 



FUNCTION 
HEADING 



PROCEDURE 
HEADING 




BLOCK 



DIRECTIVE 




Figure 4-1. Declaration Syntax 



LABEL Declaration 



Declaration Section 



A LABEL is an xinsigned integer no more than four digits long (leading 
zeros are not significant); followed by a colon and a statement. The 
colon separates the integer from the statement. 

Any statement in a program body may be identified by a LABEL, Prior to 
use, however, the integer must be identified in the LABEL declaration, 
and in addition, and must be declared first after the program heading. 

The function of the LABEL is to transfer program control from one portion 
to another. The function is not complete, however, without a connecting 
GOTO <label> statement. Transfer of program control is initiated by the 
GOTO statement. Figure U-2 shows the LABEL declaration sjmtax. 
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UNSIGNED INTEGER 
IN THE RANGE 
1..9999 



Figure 4-2. LABEL Declaration Syntax 



The following example illustrates both LABEL declaration and LABEL use. 
Example: 

PROGRAM showlabel ( input , output ) ; 

LABEL 

I23U; 

VAR 

a, b: integer; 
BEGIN 



IF a > b 
THEN 

GOTO I23U 

ELSE 



I23U: writeln ('overhead is exceeded*); 
END. {showlabel} 



CONSTant Declaration 

CONSTants are identifiers of literal values. The values are assigned to 
the identifiers at compile time. A constant may denote a value for any 
data type except a file or a type that contains a file. 

Those identifiers, or constants, may then be used throughout the program, 
making the program more readable for the user. 

The literal values cannot be changed during program execution. Literal 
values can be changed, however, during a program editing session. A 
literal value assigned to a constant is used whenever the identifier is 
listed in the program. 

If the literal value had been used in the program in place of the 
identifier, the old value would have to be changed to the new value at 
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each location in the program. If a constant identifier is used in the 
program, and not a literal, the only change needed is to the value in the 
constant declaration. The new value will be used in the program at each 
location of the identifier. 

The syntax diagram for a CONSTant declaration is given in Figure U-3> and 
the syntax diagram for literals is expanded in Figures k-k thru 




CONSTANT 











STRUCTURED 
CONSTANT 



Figure 4-3. CONSTant Declaration Syntax 



A string literal consists of a sequence of printable ASCII characters 
enclosed by apostrophes. If the string contains an apostrophe, the 
apostrophe must be written twice. The length of the string can range 
from no characters to a full line of characters. Any string literal must 
not exceed a line in length. Only printable ASCII characters are allowed 
between apostrophes. Other characters are denoted by using the # sign 
outside the apostrophes. The # may be followed by an unsigned integer in 
the range of 0 thru 255 > or by a control character. A control character 
may be a letter or @, [, ], \, _ symbol. If a control character (c) 
is used, the value produced is: chr(ord(c)MOD 32). 
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STRING 
LITERAL 



U(7> 



CHARACTER 



LETTER 



INTEGER 



O 
O 



Figure 4-4. String Literal Syntax 



INTEGER- 





_. _ ... 


^ 








DIGIT 









REAL 



INTEGER 



Figure 4-5. Integer Syntax 



INTEGER 




Figure 4-6. Real Syntax 
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Simple Constants 

A simple constant can take the form of a string literal, a previously 
defined constant identifier, an integer, a REAL optionally preceded by + 
or or an expression of an ordinal type, i.e., INTEGER, BOOLEAN, 
CHARacter, subrange, or enumerated type. The use of ordinal expressions 
as constants is an HP extension. 

Example: 

CONST 

pages ize = 55 > 
maxpages = 99; 
pi = 3.1i*159; 

pagenum = maxpages - pagecount; 
heading_a = 'List is now on.*; 

Constant expressions are constructed according to the rules defined for 
general expressions. The operands in aji expression must be either 
literals or constants that have already been defined. The operators al- 
lowed are +, DIV, MOD, and the predefined functions ord, chr, pred, 
succ, abs, hex, octal, and binary. 

The operands must be ordinal ts^es except that a plus or minus is allowed 
before a REAL constant. Selection of elements of structured constants as 
operainds is only allowed in executable expressions. 



Structured Constants 

A structured constant is a constant of a structured type, i.e., array, 
record, set, or string. Structured constants are an HP extension to 
Pascal. The definition consists of a previously defined TYPE identifier 
followed by a list of values. Values for all elements of the structured 
type must be specified and must have a type that is assignment compatible 
with the type of the corresponding element; with the exception that a 
string literal may be used to specify the elements of a PAC or a string 
data type. Structured constants can be used to initialize variables of 
structured types. The individual elements of a structured constant are 
also available as constants. The syntax of the structured constant is 
shown in Figure 







ARRAY 
CONSTANT 




STRUCTURED . 












RECORD 
CONSTANT 




CONSTANT 


L i» 






SET 

CONSTANT 











Figure 4-7. Structured Constant Syntax 
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The following paragraphs describe the structured constants array, record, 
set, and string. 



Array Constants 

The definition of an ARRAY constant consists of the ARRAY type identifier 
followed by the list of values that are to be included in the constant 
array. The Array constant syntax is shown in Figure 



ARRAY 
CONSTANT 



ARRAY TYPE 
IDENTIFIER 



CONSTANT 



STRUCTURED 
CONSTANT 



Examples: 



Figure 4-8. Array Constant Syntax 



TYPE 



Boo lean_table 

TABLE 

ROW 

MATRIX 

COLOR 

COLOR_STRING 
COLOR ARRAY 



ARRAY [I..5] OF BOOLEAN; 

ARRAY [1..100] OF INTEGER; 

ARRAY (I..5] OF INTEGER; 

ARRAY [1. .5] OF ROW; 

(RED, YELLOW, BLUE); 

PACKED ARRAY [1..6] OF CHAR; 

ARRAY [COLOR] OF COLOR STRING; 



CONST 



TRUE_VALUE 

INIT_VALUE1 
INIT_VAH]E2 
IDENTITY 



COLORS 



BOOLEAN_TABLE 

[TRUE, TRUE, TRUE, TRUE, TRUE] ; 

TABLE [100 OF 0]; 

TABLE [60 OF 0, 1*0 OF 1]; 

MATRIX [ROW [1,0,0,0,0], 
ROW [0,1,0,0,0], 
ROW [0,0,1,0,0], 
ROW [0,0,0,1,0], 
ROW [0,0,0,0,1]]; 

COLOR_ARRAY 

[COLOR_STRING ['RED', 3 OF ' 
COLOR_STRING ['YELLOW '], 
COLOR STRING ['BLUE', 2 OF 



'], 

*]]; 
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Notice that in the last example, where the array was a PAC, that a 
combination of strings and characters was used. This is the only case 
where the constant (string) is permitted to be of a type that is not 
assignment compatible with the element type (char). 



RECORD Constant 



The definition of a RECORD constant consists of the RECORD type iden- 
tifier followed by a list of the values to be assigned to the fields of 
the constant record. Each value is preceded by the name of the field 
that it initializes. All fields must be initialized and may be specified 
in any order, except that a tag field (if present) must be initialized 
before any variant fields. Once the tag is initialized, only the variant 
fields associated with that value of the tag may be initialized. If a 
variant is present, but no tag exists (a tagless variant), then the first 
vari8int field initialized selects the variant as if a tag had been in- 
itialized. The syntax for a record constant is shown in Figure ^-9* 



RECORD 
CONSTANT 



RECORD TYPE 
IDENTIFIER 



HQ 



<7> 



FIELD 

IDENTIFIER 



KDrl 



CONSTANT 



STRUCTURED 
CONSTANT 



Figure 4-9. RECORD Constant Syntax 



Examples: 
TYPE 

COUNTER_RECORD = RECORD 
PAGES: INTEGER; 
LINES: INTEGER; 
CHARACTERS: INTEGER; 

END; 

REPORT_RECORD =RECORD 
REVISION: CHAR; 
PRICE: REAL; 
INFO: COUNTER_RECORD; 
CASE SECRET: BOOLEAN OF 

TRUE: (CODE: INTEGER); 

END; 



CONST 

NO_COUNT = COT]NTER_RECORD [PAGES: 0, CHARACTERS: 0, 
LINES :0]; 



l»-8 



Model 6U817A 
HP6U000 
HOST Pascal 



BIG^REPORT = REPORT^RECORD 

[REVISION: 'C\ 
PRICE: 27.50, 
INFO: COUNTER^RECORD 

[PAGES: 6, LINES: 28, CHARACTERS: 
^96], 
SECRET: TRUE, 
CODE: 8128]; 



SET Constant 

The definition of a SET constant consists of an optional SET tj^e iden- 
tifier followed by the list of values that are to be included in the con- 
stant set. 

If no type identifier is used, one of three possible results will occur 
depending on the type T of the elements in the set: 

a. If T is an integer, then the set created is of type SET OF 
0..255* Compile -time and run-time checks are performed to en- 
sure that specified elements are in this range* Thus the set 
[25,0,255] is legal, but the set [-10, 256] is not legal. 

b. If T is any other ordinal type, the set created is a set whose 
base type is the entire ordinal type. The set ['A*,*T*] has 
the type SET OF CHARacter. 

c. If the empty set ([]) is specified, the type of the set will be 
determined from context. 

The syntax for the SET constant is shown in Figure U-10. 



SET 




Figure 4-10. SET Constant Syntax 
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Examples: 
TYPE 



DIGITS 
CHARSET 



= SET OF 0. .9; 
= SET OF CHAR; 



CONST 



ALL_DIGITS = DIGITS [O..9]; 

ODD_DIGITS = DIGITS [1,3,5,7,9]; 

LETTERS = CHARSET [*a\.'z', 'A'..'ZV]; 

NO CHARS = CHARSET [] ; 



String Literal 

A string literal consists of a sequence of alphabetic or numeric charac- 
ters in a specific order and enclosed by apostrophes. The string is as- 
sociated with an identifier, i.e., declared as a CONSTant. Strings can 
be declared as part of the main program, or can be declared in any 
routine. 

Example: 

PROGRAM; {or routine} 
CONST 

Heada = 'INVALID INPUT'; 



Begin 

IF NOT (INPUT = 5) 

THEN writeln (heada) 
End. {program} 



TYPE Definitions 

Types defined in this section of Chapter Four are the Predefined Types, 
Structured Types and the type modifier Packed. 



TYPE 

Data items can be characterized by their type. The TYPE determines a set 
of attributes: 

a. the set of permissable operations that may be performed on an 
object of that type. 

b. the set of values that may be assumed by an object of that 
type . 

c. the amount of storage required by objects of that type. 
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Certain types are predefined. Other types can be defined by the user. 

Type Declaration 

In the tjrpe declaration section, an identifier can be associated with a 
type definition. 

The TYPE declaration syntax is shown in Figure U-11. 



TYPE 
DECLARATION 



Figure 4-11. TYPE Declaration Syntax 



Tjrpes can be further defined as: 

Simple Types 
Pointer Types 
Structured Types 

The TYPE syntax is shown in Figure U-12, 



Simple Types 



All simple types define an ordered set of values, 
divided into ordinal types and real types. 



S imple type s are 



Ordinal Types 



Ordinal tjrpes are the predefined ordinal types: BOOLEAN, CHAR, and 
INTEGER; the user defined ordinal ty3>es: enumerated aind subrange, and 
type identifiers that have been equated to another ordinal type. 
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TYPE IDENTIFIER 



ENUMERATED 
TYPE 



SUBRANGE TYPE 



POINTER TYPE 



STRING TYPE 



PACKED 



ARRAY TYPE 



^ ^ RECORD TYPE 





SET TYPE 









L ^ 


FILE TYPE 









Figure 4-12 TYPE Syntax 



Predefined Ordinal Types 
BOOLEAN 

The type Boolean is an ordinal type having two elements, false and true, 
and occupies one word of memory. Implicit is the concept that false < 
true. The operators applicable to Boolean operands are NOT, AND, OR. 
NOT takes precedence over AND; AND takes precedence over OR. The order 
of precedence may be altered by the use of parentheses. The relational 
operators always yield Boolean values. 



CHAR 

The type CHAR is an ordinal type consisting of the ASCII character set 
whose ordinality range is 0..2555 and occupies one word in memory. The 
fxmctions applicable to the type CHAR are ORD(C) which yields the ordinal 
integer corresponding to the character (C); and CHR(I) which yields the 
character corresponding to the ordinal value (I). 



TYPE 




U-12 



Mbdel 6U817A 
HP6I4OOO 
HOST Pascal 



INTEGER 

The tj^e Integer is an ordinal subset of the set of whole niimbers. The 
rainge of Integers is predefined by the terms MININT. .MAXINT. 
MININT. .MAXINT is the range -231 ^o 231 Each integer occupies two 

words in memory. 



User Defined Ordinal Types 

The user defined types discussed in the following paragraphs are the 
enumerated type and subrange type. 



Enumerated Type 

Enumeration defines an ordered set of values by listing the identifiers 
of the ordered values. The identifiers are constants that have ordinal 
values beginning with 0 for the first identifier, 1 for the second iden- 
tifier, and so forth. The syntax diagram for the envimerated type is 
shown in Figure U-13. 



Examples: 

color = (black, brown, red, orange); 
day = ( Sunday, monday, tuesday); 

The ordinal value of black is 0. The ordinal value of orange is 3. The 
ordinal value of monday is 1. 



Subrange Type 

Definition of a subrange (of an ordinal type) requires listing the lower 
bound constant and the upper bound constant of the subrange. In the case 
of a subrange of tjrpe INTEGER, the bounds must be between -231 .,231 
A variable of the subrange type possesses all of the properties of a 
variable of the base type, with the only restriction being that its value 
be in the specified range. The syntax for the subrange type is shown in 
Figure U-lU. 




Figure 4-13. Enumerated Type Syntax 
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SUBRANGE TYPE - 



CONSTANT 



HQ 



CONSTANT 



Figure 4-14. Subrange Type Syntax 



Examples: 



TYPE 



Dip = 1 . . 99 ; 
Alpha = 'A^.-'K'; 



Two words of memory will be occupied by a subrange of INTEGER if either 
the lower bound or the upper bound falls outside of the range 
-32768 • .32767 • Only one word of memory will be occupied if both upper 
and lower bounds of the subrange fall within the range -32768. ,32767 • 



Examples: 

Flop = 39OO..39OOO; {will occupy two words of memory.} 
Flip = -39000. . -3900 ; {will occupy two words of memory.} 
Floor = -99»^99; {will occupy one word of memory.} 



Real Types 

Real types are the predefined types 
have been equated to real types. 



REAL, LONGREAL, and identifiers that 



REAL 

The set of Real numbers is a subset of whole numbers and is not an or- 
dinal type. The Real number range includes values between +/- 1037 
with six significant decimal digits. Each real number occupies two words 
in memory. 



LONGREAL 

The set of Longreal numbers is a subset of Real numbers. Each longreal 

number occupies four words in memory. The precision of Longreal is 

greater than that of Real. The values of Longreal range between +/- 
10308 

with 15 significant digits. Any of the set of operators ap- 
plicable to Real numbers are also applicable to Longreal numbers. 
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Pointer Types 

Variables that are declared in a program are accessible by their iden- 
tifiers. These variables exist during the entire execution of the level 
of program to which they are local, and are therefore called static 
variables . 

Dynamic variables can be generated without any correlation to program 
structure by using the standard procedure NEW(p) • New memory space is 
allocated for the new dynamic variable, and the pointer variable (p) 
holds the address of the new dynamic variable. Thus a pointer variable 
may "point" to a dynamic variable. See Figure U-I5 for the pointer type 
syntax diagram. 



A pointer may only refer to djniamic variables of a single type called the 
"base type". The base type is specified in the pointer definition. A 
pointer variable may be assigned the value NIL. NIL points to no loca- 
tion in memory. NIL is a reserved word used in a pointer at the end of a 
linked data structure to indicate the end of the data structure. 
Pointers occupy one word of memory space. 

The base type identifier is an exception to the rule that all identifiers 
must be declared before they are used. 

HOST Pascal does not allow dynamic variables to be type FILE or a type 
that contains a file* 

Examples: 

father, mother, child, sibling: ^person; 
carbon, film, wirewound: "^resistor; 



Structured Types 

The structured tjrpes Array, Record, Set, and File are characterized by 
component type and by the structuring method. A structured type defini- 
tion may contain an indication of the preferred data representation by 
use of the term PACKED. The term PACKED is an indication to the compiler 
that data storage is to be economized. 



An array is made up of a fixed number of components, each of which cam be 
directly accessed. Each array has an index by which a component is 




Figure 4-15. Pointer Type Syntax 



Array 
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selected from the array. The index must be an ordinal t3rpe, e.g., 
[1..6]. The number of elements in the array is specified by the index. 
The components can be any type; but all components are of the same type, 
called the base type. It is illegal to use the form [INTEGER] as an in- 
dex, even though INTEGER is an ordinal type. The sjnitax of the Array is 
shown in Figure U-I6. 




Examples: 
TYPE 

Root = Array Vl\.'6'] of Real; 

Freq = Packed Array ['1'. .'6'] of Real; 

CONST 

Flip = Root [1.1, 1.2, 1.3, l.U, 1.5, 1-6]; 

Flop = Freq [2.1, 2.2, 2.3, 2.U, 2.5, 2.6]; 



Components of an array can be assigned values during execution of the 
main program block as well as in the CONST declaration. The use of a 
packed array involves a choice between ease of access/execution time and 
conservation of memory space. A packed format conserves memory space but 
increases access/execution time because each access of the packed array 
requires a corresponding UNPACK effort. 

Mult i -dimensioned arrays, i.e., arrays of arrays, are possible by use of 
the following format: 

TYPE 

row = ARRAY [1..5] OF real; 
matrix = ARRAY [1..10] OF row; 

or shortened to the equivalent form: 

TYPE 

matrix = ARRAY [I..5] OF ARRAY [1..10] OF real; 
or reduced further to the form: 
TYPE 

matrix = ARRAY [1..5, 1..10] OF real; 
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Bear in mind that each dimension of an array caoi accommodate no more than 
16,383 elements. Mult i -dimension arrays can, however, by their nature, 
accommodate more than 16,383 elements. 



PAC 

The term PAC is used to refer to arrays of the type: 

PACKED ARRAY [l..n] OF CHAR; 

PAC data types have the special property that they are compatible with 
string literals with the same or fewer components than are in the PAC 
data tjrpe. 

When a string literal with fewer characters is assigned to a PAC vari- 
able, it is automatically extended on the right with blanks so that it 
has the same number of components as the PAC. When a string literal with 
fewer components is compared to a PAC data type, it is automatically ex- 
tended on the right with blanks before the comparison is made. The use 
of PACs with shorter string literals is an HP extension to standard 
Pascal. 



String Data Types 

Strings are a family of standard data types that are similar to packed 
arrays of character, but have special properties. String data tjrpes are 
aji HP extension to standard Pascal. 

String data types have a dynamically variable length. While the maximum 
length of a string is fixed in the type definition, the actual length, 
i.e., the number of valid characters presently in the string, may vary 
from 0 to the maximum declared length of the string data type. 

The predefined function STRLEN may be used to determine the present 
length of any string expression. 

The components of a string data type are of type CHAR and may be accessed 
in the same way as components of other arrays. There is the additional 
restriction that the value of the index expression used to select a 
character must be greater than or equal to 1, and less than or equal to 
the current length of the string. 

A string data type is compatible with any other string data type. In ad- 
dition, string data types are compatible with string literals. The 
string literal represents the "null" string that is a string consist- 
ing of no characters. 

The syntax for defining string types is different from other arrays. See 
Figure U-17 for the string type syntax. 
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STRING TYPE 



* ^ STRING ^ ^"C^^ 



Figure 4-17. String Type Syntax 



The constant is a constaxit integer expression specifying the matximum num- 
ber of characters that may be contained in the string. In HOST Pascal 
the value of this constant must be between 1 and 255- 

String variables may be used as VAR parameters in procedures and func- 
tions in a way that is fundamentally different from other data types. 

Ordinarily the actual paratmeter substituted for a formal VAR parameter in 
a procedure or function must have the identical type as the formal param- 
eter. With strings, however, the following type of parameter declaration 
is allowed: 

PROCEDURE P (VAR S: STRING); 

In this case, where the parameter t3rpe identifier is the predefined iden- 
tifier STRING, any string variable may be substituted for S, 

String expressions may be concatenated using the operator and com- 

pared to other strings and string literals. Refer to Chapter 5 for in- 
formation on string comparison. 

When a string variable is created at prograon execution time, its value, 
including the dynamic length, is unpredictable. It is important for con- 
sistent execution to assign a value to the djmamic length before access- 
ing the individual characters of the string variable. For example, the 
following will sometimes produce a run-time error: 

VAR S : STRING [100]; 
I : INTEGER; 

BEGIN 

FOR I := 1 TO 100 DO {Sometimes causes run-time error } 
S[I] := * *; {because STRLEN(S) is unpredictable.) 
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The length of a string variable is set in only one of three ways* 

1. Assign to the entire string variable. For example, 
S := 'ABC; 

2. Use the procedure SETSTRLEN, For example, 
SETSTRLEN (8,100); 

3. Use the variable as an actual variable parameter to a routine 
which assigns a value to it. For example, 

READ (S); 

The example can be rewritten as follows: 

VAR S : STRING[100]; 
I : INTEGER; 

BEGIN 

SETSTRLEN (S,100); 
FOR I := 1 TO 100 DO 

S[I] := * '; {operates correctly} 



RECORD 

RECORD is a Pascal reserved word signifying a structured data type having 
a fixed number of elements* These elements, called fields, can be of 
differing types* The fields are enumerated and their types defined in 
the record TYPE declaration. Different records may have fields of the 
same name, but fields within a record must have distinct naimes. The 
field list follows each RECORD identifier. Each RECORD declaration is 
completed by END;. The syntax of a Record constant is shown in Figure 
U-IO. 

A RECORD type definition may contain a "variant" part. This enables 
variables of type RECORD, although of identical type, to exhibit struc- 
tures that differ in the number and type of their component parts. The 
"variant" part may contain an optional "tag" field. The value of the tag 
field indicates which of the variants is currently valid. If a tag field 
is not specified, then determination of which variant is currently valid 
is left to the programmer. (Actually, HOST Pascal does not check the tag 
field when a variant field is used. ) The responsibility for proper ac- 
cess of variants is always left to the programmer. 

Each label in the variant CASE declaration must be of the same type as 
the tag type. Fields of type FILE or tjrpes which contain files are not 
permitted in the variant part of a RECORD. The label OTHERWISE is not 
allowed in the variant CASE declaration. 

The sjmtaix for a record type is shown in Figure U-l8, and the syntax for 
a field list is shown in Figure U-I9. 
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RECORD TYPE- m( RECORD 



FIELD 
LIST 



END 



> 



Figure 4-18. Record Type Syntax 



FIELD LIST 



0 



IDENTIFIER 



■GH 



TYPE 




CASE 



IDENTIFIER 



TYPE 

IDENTIFIER 



CONSTANT 




CONSTANT 



Figure 4-19. Field List Syntax 
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SET 

A set is the powerset (set of all subsets) of an ordinal type called the 
base type. The base type may be identified by a predefined type, i.e., 
char or integer, or a subrange of a predefined type. The syntax of a Set 
tjrpe is shown in Figure U-20. 



The set base type must be an ordinal type. In the case of a subrange of 
integers, the low bound must be >= to 0 and the high bound must be <= 
U079- 

Relational operators for sets include =, >=, <=, and <>. These operators 
can be used between sets, with results that are Booleain. The symbol IN 
may be used between an ordinal expression and a simple set expression. 

Examples: 

CHARSET = SET OF CHAR; 

FRUIT = (apple, banana, cherry, peach, pear, pineapple); 
FRUITSET = SET OF FRUIT; 
SOMEFRUIT = SET OF apple, .cherry; 
CENTURY20 = SET OF 1901..2000; 



Sets can be manipulated by set union (+), set difference (-), and set in- 
tersection (*) to define new element groups* The maximum number of ele- 
ments in a set is limited to U08O. 



The file definition specifies a structure consisting of a sequence of 
components that are all of the same type. The number of components is 
not fixed by the file type definition. A file is usually associated with 
a peripheral storage device. A file having no components is an EMPTY 
file. The component of a file may not be a file or a structured t3;^e 
containing a file. The component type of a file must be assignable. The 
file type syntax is shown in Figure U-21. 




Figure 4-20, Set Type Syntax 



FILE 
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FILE 



TYPE ^ FILE ) OF ) ^ 



TYPE 



Figure 4-21. File Type Syntax 



PACKED Type Modifier 

The representation of a variable in HOST Pascal is usually determined by 
the compiler. Ease of access is given priority over storage compactness. 
For example, Boolean variables occupy a l6-bit word instead of a single 
bit, and character variables occupy a l6-bit word instead of an 8-bit 
byte. 

There are times, however, when the programmer needs smaller amounts of 
storage allocated to certain data items, even if this requires less effi- 
cient access. The programmer can indicate this to the compiler by 
prefixing the definition of a structured type with the symbol PACKED. 
The sjmtax of the PACKED modifier is shown in Figure U-22. 



PACKED MODIFIER— ( PACKED^ 



ARRAY TYPE 



RECORD TYPE 



SET TYPE 



FILE TYPE 



Figure 4-22. PACKED Modifier Syntax 



Non-structured components of PACKED structured tjrpes are allocated the 
smallest amount of storage required to represent all the possible values 
of each component in a manner consistent with the following rules: 



a. A component that requires more than one l6-bit word of storage 
will begin on a l6-bit word boundary. 

b. A component that requires one l6-bit word or less of storage 
will not cross a word boundary. 

c. A component that is a set of more than I6 elements will use a 
whole number of words , even if all of the last word is not 
required by the set. 
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Structured components of a structured type are not affected by the PACKED 
type modifier* 

The operations allowed on data of a PACKED data type are the same as 
those allowed for data that is not PACKED, with the exception that com- 
ponents of a packed structure cannot be passed as VAR (call-by-reference) 
parameters • 

The standard procedures PACK and UNPACK can be used to assign components 
from an unpacked array to a packed array, and vice versa. 



VARiable 

VARiables are locations in memory that are identified by name, and exist 
during the entire execution of the level of program to which they are lo- 
cal. Variables that have been declared are called static variables. 

Dynamic variables, on the other hand, can be generated without any cor- 
relation to program structure. Variables contain values that can be 
changed during the execution of the program. The VARiable declaration 
syntax is shown in Figure U-23. 



IDENTIFIER 








TYPE 








1 ^ 



-Or* 



Figure 4-23. VARiable Declaration Syntax 

VARiable Declaration 

The variable declaration consists of a list of identifiers followed by 
the applicable type definition. 

Examples: 

VAR 



aset : char; 

bset, dset, flop : integer; 

freq : PACKED ARRAY [1- .15] of REAL; 

root : ARRAY [(alpha, beta)] of COLOR; 

cset : FILE OF char; 

nset : SET OF noun; 

pi, p2 : '"^person; 
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The value of a variable is undefined at the time of declaration. 

Variables denoted are either entire variables, comx>onent variables , or 
variables referenced by a po inter ♦ 



Entire Variables 

An entire variable is denoted by its identifier. 



Component Variables 

A component variable is denoted by the variable followed by a selector 
specifying the component. The form of the selector depends on the struc- 
ture type of the variable. The selector can be an index, a field desig- 
nator, or a buffer variable. 



Indexed Variables 

A component of an n-dimensional array variable is denoted by the variable 
identifier followed by n index expressions. The index expressions must 
be assignment compatible with the index types declared in the definition 
of the array type. Indices separated by commas are equivalent to indices 
in separate brackets, and combinations of commas and brackets. For ex- 
ample, [a,c,e] is equivalent to [a,c] [e], equivalent to [a] [c,e], and 
equivalent to [a] [c] [e]. 



Field Designators 

A component of a record variable is denoted by the record variable fol- 
lowed by a period and the field identifier of the component. 

Examples: 

a. color 

b [red, true ] .nset 



Buffer Variables 

A buffer variable is associated with each file. The current file com- 
ponent may be read into this buffer variable and inspected prior to a 
READ of the component. The next file component may be placed in the 
buffer variable and written from that location. 

Example: 

inpuf^ 
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Referenced Variables 



A referenced variable is a pointer expression followed by the ^ symbol. 
If p is a pointer variable with base type T, then p'" denotes a variable 
of type T. 

Examples: 

p^ p'^. sibling'^ 



Routine Declarations 

PROCEDURE and FUNCTION declarations may take place in the declaration 
portion of the main program, or within other procedures or fxinctions. 
Routines must be declared before they are used. Each routine, whether 
procedure or function, is declared in a similar fashion. The routine 
heading is followed by either the directive FORWARD or by a block that 
contains the declarations and statements comprising the routine. The 
routine declaration sjnitax is shown in Figure U-2U. 



ROUTINE 
DECLARATION 




Figure 4-24. Routine Declaration Syntax 
PROCEDURE Declaration 

Procedures perform specific tasks or algorithms by execution of the 
statements within the procedure. Each procedure must be declared before 
its use. The procedure heading syntax is shown in Figure 



PROCEDURE. 
HEADING 



PROCEDURE 





FORMAL 

PARAMETER 

LIST 




IDENTIFIER 











Figure 4-25. PROCEDURE Heading Syntax 
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Example: 

PROGRAM REG21 ( INPUT , OUTPUT ) ; 
VAR I,N : INTEGER; 

X,Y : REAL; 
PROCEDURE SWAP (VAR P,Q :REAL); 
VAR TEMP : REAL; 
BEGIN 

TEMP := P; 
P := Q; 
Q := TEMP 

END; 
BEGIN 

READ(N); 

FOR I := 1 TO N DO 
BEGIN 

READ {X,Y); 

IF X > y THEN SWAP (X,Y) 

END; 

WRITELN ('ARE THE ORDERED PAIRS'); 

END. 



FUNCTION Declaration 

The function declaration consists of a heading and a main block. The 
function heading consists of the function identifier, a formal parameter 
list, and the type of function result. The type of the function result 
can be any type except a file, or a type containing a file. Within the 
function main block at least one statement must assign a value to the 
function identifier. See Figure U-26 for the FUNCTION heading syntax. 



FUNCTION HEADING 



FUNCTIONV 



IDENTIFIER 



FORMAL 

PARAMETER 

LIST 




Figure 4-26. FUNCTION Heading Syntax 



Functions perform specific tasks or algorithms by execution of statements 
within the FUNCTION. The function is further identified by a type; and 
the value generated by the function must be of that type, and assignable 
to the function identifier. 
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Example: 



{function declaration} 
FUNCTION Sqrt (x : real) : real; 
VAR XO, Xl:real; 

BEGIN XI :=X; {X >1, Newton's method) 

REPEAT XO := XI; XI := (X / XO + XO) * O.5 
UNTIL abs (xl-xO) < eps * xl; 
Sqrt := xO 

END; 

{fimction call) 
BEGIN {start of program) 



writeln ('The following is a square root matrix.'); 
y := sqrt (3-5); 

writeln ('End of square root matrix.'); 



END. {end of program) 

Parameter Lists 

Formal Parameter List 

The formal parameters for both functions and procedures can be value 
parameters, variable parameters, procedure parameters, and function para- 
meters. The syntax diagram of the formal parameter list is shown in 
Figure k'2T. 



FORMAL 
PARAMETER 
LIST 



U(r> 



VAR 



IDENTIFIER 



■O 



TYPE 
IDENTIFIER 



PROCEDURE 
HEADING 








FUNCTION 
HEADING 







<7>J 



Figure 4-27. Formal Parameter List Syntax 
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Actual Parameter List 

Actual parameters are the values used in the execution of procedures and 
functions. The syntax diagram of the actual parameter list is shown in 
Figure U-28. 



ACTUAL 

PARAMETER 
LIST 



EXPRESSION 



PROCEDURE 
IDENTIFIER 



FUNCTION 
IDENTIFIER 



Figure 4-28. Actual Parameter List Syntax 



Value Parameter 



The actual parameter must be an expression^ i.e., something found on the 
right side of an assignment statement. The corresponding formal parame- 
ter represents a local variable in the called routine, and the current 
value of the expression is initially assigned to this variable. Actual 
value parameters must be assignment compatible with the type of the cor- 
responding formal parameter. 



Variable Parameter 

The actual parameter must be a variable, and the corresponding formal pa- 
rameter represents the actual variable during the entire execution of the 
routine. 

An actual variable parameter must have the same type as the corresponding 
formal parameter. 

There is one exception to this rule of identical types. The type of a 
variable parameter may be the predefined type STRING. In this case, a 
variable of any string data type may be the actual parameter. 
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Procedure Parameter 

The fonnal parameter is a procedure heading. The actual parameter is a 
procedure identifier. The actual procedure and formal procedure have 
compatible formal parameter lists. 

Predefined procedures may not be used as actual procedure parameters. 
Function Parameter 

The formal parameter is a function heading. The actual parameter is a 
function identifier. The formal function and actual function have com- 
patible formal parameter lists and identical result types. 

Predefined functions may not be used as actual function parameters. 



Parameter List Compatibility 

Two formal parameter lists are compatible if they contain the same number 
of parameters, and if the corresponding parameters match. Corresponding 
parameters match if any of the following is true: 

a. They are both value parameters of the same type. 

b. They are both variable parameters of the same type. 

c. They are both procedure parameters with compatible parameter 
lists. 

d. They are both function parauneters with compatible parameter 
lists and the same result type. 

Declarations Within Routines 

The declaration part of a procedure or function contains the declarations 
of constants, types, labels, variables, and other routines. These 
declarations are local to the routine in which they are declared. 
Declarations within routines take the same form as the program 
declaration. 



Routine Body 

The body of a routine is a compound statement that describes the execu- 
tion of the routine toward an end result. The result of a function is a 
value. The result of a procedure is an action. The syntax for the 
routine block is the same as that of a main program block. 
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Directives 

All routines must be declared before they are called. If the routine's 
block does not immediately follow the routine heading, then a directive 
FORWARD must be used to inform the compiler of the location of the block, 
A FORWARD declaration is composed of the routine heading, including the 
parameter list if used, the function result type if applicable, followed 
by the directive. The routine must be fully declared before the end of 
the current scope. The parameter list, and result tjrpe for a FUNCTION, 
may be respecified. If the parameter list and function tjrpe is 
respecified, they must be identical with the original declaration. 

Example: 

FUNCTION exclusive_or (x,y: boolean) : boolean; 
FORWARD; 



FUNCTION exclusive_or; 
BEGIN 

exclusive_or := (x and not y) or (not x and y) 

END; 



Recursive Routines 



A routine that calls itself is a recursive routine. Use of the routine 
identifier within the routine body indicates recursive execution of the 
routine. If a FUNCTION identifier appears on the left of an assignment 
statement, however, only the assignment is executed. It is also possible 
for a first routine to call a second routine in which the first routine 
is called. That action is an indirect recursion. 



Scope 

Certain objects in HOST Pascal programming have a related scope of 
utility. Those objects are: 



a. labels 

b. constants 

c. types 

d. variables 

e. formal parameters 

f. routines 



The scope of an object pertains to the level of the program in which the 
object is declared or defined. Within a routine declaration the declara- 
tion part specifies local labels, constants, types ^ variables, and 
routines. Execution of the routine may access labels, variables, con- 
stants, types ^ and parameters declared at the same or outer levels of 
declaration. No outer level program execution, however, can access an 
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inner level identifier. In the case of two identifiers having different 
scopes but having the saone spelling, the outer identifier will be 
inaccessible to the inner identifier. No two identifiers having the same 
scope can have the same spelling. 



A compound statement is a statement list consisting of other compound 
statements and simple statements. Each statement must be separated from 
other statements by a semicolon ( ; ) • The statement list sjmtax is shown 
in Figure U-29. Refer to Chapter 5 for more information on compound 
statements . 



Statements 



STATEMENT 
LIST 




Figure 4-29. Statement List Syntax 
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Chapter 5 

statements and Expressions 



Introduction 



The body of a program, procedure, or function consists of a compound 

statement, mesining the BEGIN/END delimiters enclose the program or 

routine body. Following is the type and general fiinction of HOST 
PASCAL/6UOOO statements: 



Label 

Assignment statement 
Procedure statement 
Conditional statements 

Repeat statements 

Field dependent statement 

Control transfer statement 

Grouping statement 

No Op statement 



statement identifier. 

assigns a value to a variable. 

calls a procedure. 

IF and CASE statements choose a set of 
actions based on a condition. 

WHILE, REPEAT, and FOR repeat a set of 
actions . 

WITH statement allows a reference to a 
record field without naming the record. 

GOTO statement transfers action to 
another part of the program. 

Compound statement is a group of 
statements . 

Empty statement is a do nothing 
statement. 



The assignment, PROCEDURE, GOTO, and empty statements are commonly called 
"simple" statements; the IF, CASE, WHILE, REPEAT, FOR, and WITH state- 
ments are commonly called structured statements for they may contain 
other structured statements, simple statements, and statement labels. 
The syntax for statements is shown in Figure 5~1» 
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STATEMENT 



^ »> INTEGER ^ (^^^ ^ 







ASSIGNMENT 
STATEMENT 




^ ► 








PROCEDURE 
STATEMENT 










IF 

STATEMENT 












CASE 

STATEMENT 












WHILE 
STATEMENT 












REPEAT 
STATEMENT 












FOR 

STATEMENT 












WITH 

STATEMENT 










GOTO 

STATEMENT 












COMPOUND 






STATEMENT 





Figure 5-1. Statement Syntax 



Statement Label 

A statement label may be associated with any statement in a program body. 
The label must have appeared in the LABEL declaration section of the 
program or routine in which the label is defined. 



Assignment Statement 

The assignment statement is used to change the value of a variable. The 
variable can be of any type except a file tjrpe, or a structure containing 
a file. The type of the variable and the type of the expression must be 
assignment compatible; e.g., a variable of type INTEGER cannot be as- 
signed a value of type CHARacter. The identifier on the left side of the 
assignment symbol may be either a variable identifier, a field 
identifier, or a function identifier. If the identifier is a FUNCTION 
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identifier, the assignment statement must be made within the block of the 
FUNCTION. The assignment statement syntax is shown in Figure 5~2. 



ASSIGNMENT 
STATEMENT 



VARIABLE 
IDENTIFIER 








FUNCTION 




IDENTIFIER 






FIELD 

IDENTIFIER 







SELECTOR 



en 



EXPRESSION 



Figure 5-2. Assignment Statement Syntax 



Example: 



fctr := 31.25; 

flop := flim * fctr; 



Procedure Statement 

The procedure statement transfers program execution to a procedure. Upon 
completion of the procedure, program execution is transferred to the 
statement that follows the procedure statement. The procedure identifier 
must be the name of either a predefined procedure or a procedure declared 
previously in a procedure declaration. The declaration may have been an 
actual declaration (i.e., heading and body), a forward declaration, or it 
may be the declaration of a procedural parameter. If the formal declara- 
tion of the procedure includes a parameter list, the procedure statement 
must have the actual parameters. The actual parameter list must agree in 
number, order, and type with the formal parameter list. The procedure 
statement is illustrated in the following examples, and the syntax is 
shown in Figure 5"3* 
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PROCEDURE 
STATEMENT 



IDENTIFIER 




PROCEDURE 
IDENTIFIER 



FUNCTION 
IDENTIFIER 



Figure 5-3. Procedure Statement Syntax 



Example: 

PROCEDURE freqgen (VAR f ctr, ret r: integer) ; {procedure 

declaration) 

BEGIN 

END; {procedure declaration} 
BEGIN {program} 

freqgen ( apron, ramp ) ; 

END. {program} 
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Compound Statement 

The compound statement is used as a means of treating a group of state- 
ments as a single statement. The compound statement is delimited by the 
reserved words BEGIN and END. The statements enclosed by BEGIN and END 
are executed in the order written. The compound statement has two 
primary uses: 

a. as the body of a procedure, function, or program; 

b. as a structured statement that may contain other statements. 
Usually where a substatement is allowed, the default is only 
one statement. The compound statement is useful if more than 
one statement is to be executed. 

Compound statements can be used as part of IF, CASE, WHILE, REPEAT, FOR, 
and WITH statements. Delimiters are required with each of the compound 
statements. The BEGIN/END pair is used in all cases except REPEAT and 
CASE statements. 

REPEAT/UNTIL delimit the REPEAT statement, and CASE/END delimit the CASE 
statement. The compound statement syntax is shown in Figure 5""^^ 



COMPOUND. 
STATEMENT 



BEGIN 



> 



0-1 



STATEMENT 



- (END) ► 



Figure 5-4* Compound Statement Syntax 



IF Statement 

The IF statement chooses one of two possible responses ^ based on a given 
condition. The two responses possible are THEN and ELSE. The expression 
that follows IF must be a boolean type. When the IF statement is ex- 
ecuted» the expression is evaluated to be either TRUE or FALSE. If the 
value is true, the action following THEN is performed. If the value is 
false, the action following ELSE is performed. If the value is false and 
no ELSE action is specified, no action is taken. By implication, 
however, the remainder of the program becomes the ELSE action. ELSE 
parts that appear to belong to more than one IF statement are always as- 
sociated with the nearest IF statement. Note that a semicolon may not 
separate a THEN statement from the related ELSE statement. The IF state- 
ment syntax is illustrated in Figure 5"5« 
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Figure 5-5. IF Statement Syntax 



CASE Statement 

The CASE statement, like the IF statement, is used to select a certain 
action based upon the value of an expression. The CASE statement, 
however, can select from more than two courses of action. If none of 
those courses of action are selected an OTHERWISE statement is executed. 
The OTHERWISE portion of the CASE statement is an HP extension of stan- 
dard Pascal. CASE statement syntax is illustrated in Figure 5-6. The 
CASE expression may be any ordinal type, including boolean, integer, 
character, and user-defined enumeration and subrange types. The expres- 
sion, called the selector, is used to choose which statement is to be ex- 
ecuted. Each constant expression in the list of labels must be com- 
patible with the type of the selector. A label may only appear in one 
list, and separate ranges may not overlap. The statement associated with 
the label list containing the value matching the selector is executed. 
The statement associated with the OTHERWISE part is executed if the 
selector does not match any of the labels. Specifically, when a CASE 
statement is executed: 

a. The selector expression is evaluated. 

b. If the value appears in a label list within the CASE statement, 
the statement associated with that label is executed and main 
program execution continues with the statement following the 
CASE statement. 

c. If the value does not appear in any label list the statements 
appearing between OTHERWISE and END are executed, and program 
execution resumes with the statement following the CASE 
statement. 

d. If the value does not appear in any label list and no OTHERWISE 
clause exists, the result will be a run time error. 

CASE statements may be nested to any level. 

Because of the way the CASE statement is implemented in HOST Pascal, it 
is possible to generate a large amount of object code with a small amount 
of source code. 
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Specifically, when the values in the labels of the CASE statement are 
widely separated, the use of nested IF statements is much more memory 
efficient and will achieve the same result. The compiler generates a 
table whose length, in bytes, is twice the difference between the smal- 
lest label value and the largest label value. The compiler will produce 
a warning if the difference between label values is greater than 1000. 

Example: 

CASE I OF 

0 : J := 1; 
10000 : J := 2; 
OTHERWISE 

J := 3; 

END; 

The above example CASE statement would generate over 20,000 bytes of ob- 
ject code, and very likely would cause the compiler to run out of memory. 



CASE 



EXPRESSION 



OF 



> 









> — ^ 


CONSTANT 









CONSTANT 



STATEMENT 



OTHERWISE 



STATEMENT 



0 



Figure 5-6. CASE Statement Syntax 



WHILE Statement 

The WHILE statement is a repeating statement used to execute an action so 
long as a given expression is true. The expression is evaluated before 
execution, in contrast to the REPEAT statement which is evaluated after 
execution. The expression must be of the boolean type. Each time the 
evaluation is true the WHILE statement is executed. When the evaluation 
becomes false the statement following the WHILE statement is executed and 
program action is continued. 
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It is necessary that execution of a WHILE statement causes a change in 
data such that the evaluation result becomes false. Otherwise the WHILE 
statement is never exited, an endless loop exists and execution of the 
program is never concluded. The WHILE expression syntax is illustrated 
in Figure ^"7* 



EXPRESSION 



-Kdo> 



STATEMENT 



Figure 5-7. WHILE Statement Syntax 



REPEAT Statement 

The REPEAT statement is executed so long as the UNTIL Boolean expression 
is false. The expression is evaluated after execution of the statement 
enclosed by the REPEAT/UNTIL delimiters, in contrast to the WHILE expres- 
sion which is evaluated before execution. The expression must be of the 
boolean type. 

Each time the evaluation returns false the REPEAT statement is executed. 
When the evaluation returns true the statement following the REPEAT is 
executed and program action is continued. It is necessary that execution 
of a REPEAT statement causes a change in data such that evaluation 
results in a true value. Otherwise the REPEAT statement is never exited, 
an endless loop exists and execution of the program is never concluded. 
The REPEAT statement syntax is illustrated in Figure 5""8* 




• N BOOLEAN 
J EXPRESSION 



Figure 5-8. REPEAT Statement Syntax 



FOR Statement 

The FOR statement executes a statement once for each value in a range 
specified by initial and final expressions. A variable, called the con- 
trol variable, is assigned each value of the range before the correspond- 
ing iteration of the statement. The control variable must be a local 
variable, and it also must be an entire variable. In addition, the con- 
trol variable may be a local formal value parameter, but may not be a 
formal variable parameter. 

Within the FOR loop, the control variable is protected from assignment at 
compile-time, and may not be passed as a variable parameter. It also may 
not appear as the control variable for a second FOR loop nested within 
the first. If the value of the variable is changed by some other means 
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during the execution of the loop, the effect on the number of times the 
statement is executed is undefined. 



The range of values assumed by the control variable is specified, tj^i- 
cally: FOR n := 1 TO 10 DO, The range specified is 1 TO 10. The FOR 
statement is not executed, and the control variable is not changed if the 
initial expression is greater than the final expression with the FOR* .TO 
statement (or less than the final expression with the FOR. .DOWNTO state- 
ment). The range expressions must be assignment compatible with the type 
of the control variable. These expressions are evaluated only once, 
before any assignment is made to the control variable. The FOR statement 
syntax is illustrated in Figure 5""9* 



FOR STATEMENT 




Figure 5-9. FOR Statement Syntax 



WITH Statement 

The WITH statement allows access to record fields without naming the 
record. Each record expression in the list is either a record variable, 
a record constant, or a reference to a function which returns a record. 
Within the WITH statement any field of any of the records in the list may 
be accessed by using only its field name instead of the normal field 
selection notation using the period between the record and the field 
name. 

When the record expression is a function returning a record, the fields 
of the record may only be used in other expressions. (i.e., they may not 
be used on the left side of an assignment statement.) 
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Example: 
TYPE 

R = record 

aa : integer ; 
b,c:real; 

END; 

FUNCTION A : R; 
BEGIN 

A.aa := 3; 
A.b := 0; 
A.c := 0; 

END; 



BEGIN 

with A do 

V := aa; 



END; 

WITH statement syntax is illustrated in Figure 5~10. 



WITH STATEMENT WITH } - 



EXPRESSION 



— t ^ do) ^ STATEMENT 



Figure 5-10. WITH Statement Syntax 



GOTO Statement 

The GOTO statement is used in conjunction with a label. The label must 
be an integer in the range of 1..9999« Program execution is transferred 
to the statement named by the label. The label in a GOTO statement may 
be defined in the same body as the GOTO statement, or it may be defined 
in eji enclosing block. The latter case is referred to as an "out -of - 
block" GOTO. The execution of an "out-of -block" GOTO automatically 
closes any files that were local to any of the exited blocks. The GOTO 
statement syntax is illustrated in Figure 5~11* 
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GOTO STATEMENT 



GOTO 





INTEGER 









Figure 5-1 1» GOTO Statement Syntax 



In HOST Pascal the GOTO statement should not direct program execution 
into the middle of any FOR or WITH statement because results may be 
undefined. 



Empty Statement 

The empty statement is denoted by no sjnnbol and performs no action. It 
is used to indicate that no action is to be taken as the result of a con- 
dition evaluation. 

Example: 

IF a < b 
THEN 
ELSE 

writeln (*a is greater than or equal to b.'); 

THEN has no action statement associated with it, therefore an empty 
statement exists. 



Expressions 

An expression is a construct composed of operators and operands, and is 
used to compute a value of some type* An operator defines an action to 
be performed on its operands. Operands denote the objects that operators 
will use in obtaining a value. An operand may be a literal, a constant 
identifier, a variable, or it may be a reference to a function. The syn- 
tax diagram for expressions is shown in Figure 5~12, and is expanded into 
greater detail in Figures 5"13 thru 5~15' 



EXPRESSION 




Figure 5-12« Expression Syntax 
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SIMPLE 
EXPRESSION . 



TERM 



TERM 



Figure 5-1 3, Simple Expression Syntax 
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TERM ^ FACTOR -y 



■••^mod) 









FACTOR 


1 — 


1 



Figure 5-14. Term Syntax 
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FACTOR — r 




-0 



INTEGER 



REAL 



STRING 
LITERAL 



FIELD 

IDENTIFIER 



VARIABLE 
IDENTIFIER 



CONSTANT 
IDENTIFIER 



SET 

CONSTRUCTOR 



HO 



FUNCTION 


i 


IDENTIFIER 





ACTUAL 

PARAMETER 

LIST 



SELECTOR 



Figure 5-15. Factor Syntax 



An expression's type is known when it is written, and never changes. An 
expression's value, however, may not be known until the expression is 
evaluated and may be different for each evaluation. 



Operands 

An operand is a literal, symbolic constant, variable, function or the 
value of another expression, that can be acted upon by an operator. 



Literals 

A literal is a representation of one of the possible values of a certain 
type. The literal must conform to certain syntax rules for literals of 
that type. Literals in Pascal may be integer, real, or string literals. 
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Integer Literals 

Integer literals consist of niimbers of the type integer. Spaces may not 
be used within an integer literal. Integers can be represented only in 
decimal notation. 



Real Literals 

Literals of the types REAL and LONGREAL consist of nximbers of the type 
REAL. Exponential notation may be used to represent real or longreal 
values. The letter "E" preceding a scale factor specifies an exponent 
with a real number, and is read "times 10 to the power of". The letter 
"L" preceding a scale factor specifies an exponent with a longreal num- 
ber. Decimal points must be preceded and followed by at least one digit. 
Spaces can not be used in real or longreal numbers. 

Examples: 

0.5 3-79E-3 3.79L-3 8E+U 8LI4 



String Literals 

String literals consist of groups of characters set off by single 
quotation marks. A single character can be considered as a type 
CHAR or as a type string. If a single quotation mark is included 
in a string, it must be shown twice. Printable ASCII characters 
appear in strings in the normal manner with the exception of the 
apostrophe ( * ) , which must be inserted twice . 

Examples: 

*DON*'T USE THIS CONTAINER*. 
'This is a string.' 

Non-printing ASCII characters may be included in strings by using an ex- 
tended string syntax employing the po\md sign (#). The pound sign is 
used to encode an ASCII control character when followed by a non-numeric 
character ) or to encode any character by giving its decimal value (in the 
range 0. .255). 

Examples: 

#27' that was an ESC character, as this is, too.'#[ 
'This string has 5 bells '#g#g#g#7#7' in it. ' 

Symbolic Constants 

A symbolic constant is an identifier that represents a literal, a con- 
stant expression, or a structured constant. A symbolic constant may also 
represent a component of a structured constant if it appears with the 
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appropriate selector. The identifiers defined in an enumeration type 
definition are also symbolic constants • The identifier is associated 
with a value in the CONST declaration section. This declaration also 
determines the data type of the constant* The constant may be used in 
places where expressions are expected. The identifier may also be used 
in TYPE definitions and other CONST definitions. A symbolic constant 
cannot appear on the left hand side of an assignment statement, as an ac- 
tual variable parameter, or as a FOR loop control variable. 



A variable is an identifier that represents a changeable data item. The 
variable must be declared aoid associated with the type of data it 
represents. The declaration takes place in the VAR portion of the block 
to which it is local. The identifier may denote a simple variable such 
as an integer or character, or it may be a structured variable such as an 
array or record. In either case, the variable is an entire variable. A 
variable may also denote a component of a structured variable if it ap- 
pears with the appropriate selector. Such a variable is called a com- 
ponent variable. 



A selector specifies a particular component of a structured expression. 
The selector may be applied to a structured variable or symbolic con- 
stant, or to a reference to a function that returns a structured type. 
The syntax for selectors is shown in Figure 5"l6. 



Variables 



Selectors 



SELECTOR- 




Figure 5-16. Selector Syntax 
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Array Subscripts 

Array and string components are selected using subscripts, denoted by 
square ([]) brackets, and an expression. The subscript, or index, type 
roust be compatible with the expression type appearing in the array type 
definition. The values of constants and non-constants are checked at run 
time to make sure those values lie in the range specified in the index 
type, imless the RANGE compiler option is turned off. The array denota- 
tion appearing before the brackets may itself be a selected variable, 
constant, or function reference. 

Field Selection 

A field of a record is selected by following the record identifier with a 
period and the name of the field. The record name appearing before the 
period may itself be a selected variable, constant, or function 
reference. The WITH statement may be used to "open the scope" of the 
record, making it unnecessary to mention the record when accessing its 
fields. 



Pointer Dereferencing 

A pointer points to, or "references" a variable in the heap. To access 
that variable, the pointer is followed by the caret ('^). At rxin time the 
pointer value is checked to make sure it isn't NIL before accessing the 
heap variable. The pointer may itself be a selected variable, or func- 
tion reference. It may not be a selected constant, for the only pointer 
constant is NIL. 

Examples: 

p'" r.q'" ra[i].g'' ra[i].q''p^ pfunc'^ 

File Buffer Selection 

Every file in a program has implicitly associated with it a "buffer vari- 
able" . This is the variable through which data is passed to or from a 
file. The file component at the current position of the file can be read 
into the buffer variable or the next item to be written to the file may 
be assigned to the variable and then written. The buffer variable, which 
is of the same type as the file base type, is denoted by following the 
file identifier with a caret {^) . The file identifier appearing before 
the caret may itself be a selected variable, but may not be a selected 
constant or a selected function reference. 

Examples: 

fl-" f.ff" 
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Operators 

Operators are used within expressions to specify certain actions on one 
or more operands, and to create a new value. The value is determined by 
the operator, its operands, and the definition of the effect of the 
operator. With each operator is associated the following: 

a. number, order, and type of operands 

b. result type 

c. precedence 

Operator precedence is used to determine the order of element evaluation 
in an expression. The higher precedence operators are evaluated first. 
Grouping of operators can alter the precedence value of the group; 
however, precedence within the group still follows the rules of 
precedence. The following list shows operators with their order of 
precedence, from highest to lowest. 

NOT 

/, DIV, MOD, AND 
+, OR 

<» <=» <>, =♦ >=» >» IN 

Operators may either be predefined or user-defined. Predefined operators 
are the arithmetic, boolean, set, string, and relational operators, and 
the predefined functions. User-defined operators are references to user- 
written functions, routines that compute and return a value. The value 
resulting from any operation may in turn be used as an operand for 
another operator. 

Arithmetic Operators 

Arithmetic operators take numeric operands and produce a numeric result. 
A numeric type is the type REAL, LONGREAL, INTEGER, or any INTEGER sub- 
range. If either operand is REAL or LONGREAL, the result will be of type 
LONGREAL. If both operands are integers, the result will be a two-word 
INTEGER. Operands are converted to match the type of the result before 
operation takes place. Integer values, for example, are converted to 
real values before an operation involving integer and real numbers. 

In the case of real division (/), if both operands are integers, the 
operands are converted to REAL type before division takes place. The 
result is of type LONGREAL. 

Operands for both DIV and MOD must be integers. 

Integer division (DIV) calculates the truncated quotient of two integers. 
The sign of the result is positive if both operands have the same sign, 
aind negative if the operands have opposite signs. 

A div B is equivalent to trunc (A/B) . 
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For the MOD operation, the sign of the result is always positive, I MOD 
J is defined only for j > 0, An error occurs if j <= 0. 

A mod B is equivalent to (A - (k * b) ) for integer k such that 0 <= A mod 
B < B, where B > 0* 



Boolean Operators 

The Boolean operators perform logical functions on Boolean operands. The 
Boolean operators are: NOT, AND, OR, 



NOT 

The NOT operator takes one Boolean operand and produces a Boolean result 
equal to the inverse of the operand. 



AND 

The AND operator yields a Boolean result of true only if all operands are 
true. 



OR 

The OR operator yields a Boolean result of true if any one of the 
operands is true; or yields a Boolean result of false only if all of the 
operands are false. 

a b NOT a a AND b a OR b 



T T F T T 

T F F F T 

F T T F T 

F F T F F 



All Boolean expressions are evaluated using either partial or full 
evaluation, depending on the setting of the PARTIAL_EVAL option. The 
default state of the PARTI AL_EVALuat ion option is off; however, the op- 
tion may be changed at any time in the program. 

Under PARTIAL__EVAL , the evaluation proceeds from left to right. The 
evaluation ceases for the AND operator when a "false" boolean value is 
detected. The evaluation process ceases for the OR operator when a 
"true" boolean value is detected. 

Relational operators with Boolesin operands are always fully evaluated. 
NOT, AND, OR cannot be used on operands of non-Boolean types. 
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Set Operators 

Three infix operators are defined which manipulate two expressions having 
compatible set types and result in a third set. The set operators are: 
set union (+), set difference (-), and set intersection (*). 



Set Union 

The union operator creates a set whose members are all of those elements 
present in the first set plus those in the second set. Simply, the com- 
bining together of two sets into one set. 



Set Difference 

The difference operator creates a set whose members are those elements 
that are members of the first set but are not members of the second set. 



Set Intersection 

The intersection operator creates a set whose members are all of those 
members present in both sets. 

The two operands of a set operator must be expression compatible. The 
distance between the lower and upper botinds of a set's base t3rpe is 
referred to as "width". One set is wider than a second set if every ele- 
ment in the second set is represented in the first. 

Example: 

set of 0..100 is wider than set of 1..10. 

The result of a set operation is a set whose lower bound is the minimum 
of the lower bounds of its two operands, and whose upper bound is the 
maximum of the two upper bounds. Before the set operation is performed, 
if either operand has a width other than the result's width, it is auto- 
matically widened prior to the operation. 

Example: 

TYPE 

HIGH = SET OF 50. .100; 
LOW = SET OF 1. .10; 
CROSS = SET OF 5- -75; 

VAR 

pos:HIGH; 
neg:LOW; 
crs: CROSS; 
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The result of the expression (neg + pos) is a set whose base type is the 
range 1..100. The result of the expression (crs + pos) is the range 
5-. 100. 

Narrowing of sets is also automatic for set assignments and actual value 
parameters. Run-time range checks are made to verify that the narrowing 
of a set does not discard any elements. For example, in the assignment 
crs := crs + pos, the result of the tinion is of the tj^e SET OF ^..100 
and thus must be narrowed to SET 5'*75« A run-time error will occur if 
the result has as members any of the numbers in the range 76.. 100. 

Set Constructor 

The set constructor notation is considered to be an operator and it too 
creates a set. Each expression value in the constructor is entered into 
the set. Every element between two expressions may be included by using 
the range (..) symbol between the expressions. A type identifier may be 
used to specify exactly what type of set is to be created. See Figure 
5-17 for the Set Constructor Syntax diagram. 




Figure 5-17. Set Constructor Syntax 



If no type identifier is used, one of three possible results will occur 
depending on the type T of the elements in the set: 

a. If T is an integer, then the set created is of type SET OF 
0..255' Compile-time and run-time checks are performed to en- 
sure that specified elements are in this range. Thus the set 
[25,0,255] is legal, but the set [-10, 256] is not legal. 

b. If T is asiy other ordinal type, the set created is a set whose 
base type is the entire ordinal tjrpe. The set [*A*,'T'] has 
the type SET OF CHARacter. 

c. If the empty set ([]) is specified, the type of the set will be 
determined from context. 
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The type identifier is needed to construct integer sets outside the range 
0..255, But it is also desirable to specify the type for sets over other 
subrange types for efficiency reasons. The set UPPER_CASE [*A\-'T'] 
requires much less storage than the set [*A\.*T'], and has a correspond- 
ing savings in run time. 

String Operators 

The operator + specifies the concatenation of two string expressions • An 
error will result if the combined length of the two expressions is 
greater than 255* 

Example: 

VAR 

s : string [100]; 



BEGIN 

s := 'part 1'; 

write (s + 'part 2'); 

END. 



Relational Operators 

Relational operators are used to compare two operands and return a 
boolean result- The operands may be INTEGER, REAL, LONGREAL, sets, 
boolean, or pointers. Relational operators appear between two expres- 
sions, that must be compatible, and always result in a value of type 
boolean. The relational operators are: 

< (less than) 

<= (less than or equal) 

= (equal) 

<> (not equal) 

>= (greater than or equal) 

> (greater than) 

IN (set membership) 



Ordinal Relationals 

The relationals that can be used with operands of the types integer, 
boolean, char, or any enumeration or subrange type, are: <, >, <=, =, <>, 
and >=. These operators carry the normal definition of ordering for 
numeric types, and char relationals are defined by the ASCII collating 
sequence. The order of enumerated constants is defined by the order in 
which the constant identifiers are listed in the TYPE definition. The 
predef inition of boolean is: BOOLEAN = (false, true) and means false < 
true. An expression having an ordinal type may also appear as the first 
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operand of the IN operator. Some boolean functions may be performed 
using the relational operators with boolean operands » as shown in the 
following truth table: 



a 


b 


a<b 


a<=b 


a=b 


aob 






T 


T 


F 


T 


T 


F 


T 


F 


T 
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F 
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T 


T 


T 


F 


T 


F 


F 


F 


F 


F 


T 


T 


F 


T 


F 



<= is the implication operator, = is the equivalence operator, and <> is 
an exclusive OR operator. 



PAC Relationals 

PACs (packed arrays of characters) may be compared using the operators =, 
0^ >i <=, or >=, The two PACs must have the same number of com- 
ponents. In addition, PACs may be compared to string literals that have 
the same number or fewer characters than the PAC. 

PACs are compared character by character until either a pair of imequal 
characters are found, or until all characters have been compared. The 
ordering of two PACs is determined by the first pair of \mequal charac- 
ters according to the ASCII collating sequence. 

Comparing a PAC to shorter string literal is an HP extension to standard 
Pascal. When a PAC is compared to a shorter literal, the literal is ex- 
tended on the right with blanks until the two are equal in length. 



String Comparison 

A string expression can be compared to any other string expression, in- 
cluding string literals. Strings are compared character by character un- 
til a pair of \inequal characters are found or until all the characters in 
the shorter string are used. If two characters are unequal, the ordering 
of the string is determined by the ASCII collating sequence. If all the 
characters in two strings are equal up to the length of the shorter 
string, then the longer string is greater than the shorter string. Two 
strings are equal only if they have the same length and all characters 
contained in that length are equal. 



Pointer Relationals 

Pointers can only be compared using the relationals = and <>. Two point- 
ers are equal if they point to exactly the same object, and are not equal 
otherwise. Pointers of any type may be compared to the constant NIL. 
Pointers can only be compared to other pointers, and their two pointer 
types must be identical. 
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Set Relationals 

Two sets can be compared for equality with = and <>• In addition the <= 
operator is used to denote the subset operation, and >= denotes the su- 
perset operation. One set is a subset of a second set if every element 
in the first set is also a member of the second set. Also, the second 
set is said to be a superset of the first set. Sets are widened, if 
necessary, before the relational operation. The < and > operators are 
not allowed on sets. 

The IN operator is used to determine whether or not an element is a mem- 
ber of a set. The second operand has the type SET OF T, and the first 
operand has an ordinal type compatible with T. To test the negative of 
the IN operator, the following form is used: NOT (element IN set). 

Function References 

A reference to a function can be thought of as an operator whose operands 
are the actual parameters passed to the function; or as an operand whose 
value is determined by the process in the function. 

The result, whose type is defined in the function heading, is treated 
identically to the result of any other operator, and may be used inside 
an expression. Actual parameters must match the function's formal para- 
meters in number, order, and type. If the function's type is structured, 
then components of the result value may be accessed using an appropriate 
selector. Care must be taken to avoid inefficient use of this construct. 
It is usually better to copy the result of a structured function into a 
local variable before accessing, if several components of the structure 
will be accessed. 

Functions may be recursive. 
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Constant Expressions 

A constant expression is one that the compiler is able to evaluate at 
compile time. The syntax is no different from ordinary expressions, but 
there are restrictions on the operators and operands of a constant ex- 
pression. Allowed in constant expressions are the following: 

Operators 

+ (imary and binary) 
(unary and binary) 

# 

DIV 
MOD 

Predefined Functions 
pred 
succ 
ord 
chr 
odd 

abs (except for REAL or LONGREAL operands) 

hex 

octal 

binary 

Operands 

integer literals 

real and longreal literals 

string literals 

previously-defined constant identifiers 

Other operators, such as the relationals, boolean operators, and other 
predefined functions are not allowed* Neither are selected constants, 
e.g., "table [5]" where table is a structured constant* 

Structured constants are not constant expressions, and can only appear in 
CONST declarations. 

Constant expressions are called for in CONST declarations, subrange 
definitions, the variant part of a field list, structured constants , and 
case statement label lists. 
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Type Compatibility 

A set of compatibility requirements for the operands of each operator is 
based both on the operator ajid the types of its operands. 

Relative to each other, two types in Parjcal are either: 

a. identical, 

b. compatible, 

c. assignment compatible, 

d. expression compatible, or 

e . incompat ible . 



Identical Types 

Two types are identical if either of the following is true: 

a. their types have the same type identifier. 

b. if the two type identifiers have been equivalenced by a defini- 
tion in the form Tl = T2. 



Compatible Types 

Two types, Tl and T2, are compatible if any of the following is true: 

a. Tl and T2 are identical types. 

b. Tl and T2 are subranges of the same base type, or Tl is a sub- 
range of T2 or T2 is a subrange of Tl. 

c. Tl and T2 are set types with compatible base types. 

d. Tl and T2 are string types. 

e. Tl and T2 are both PAC types with the same number of 
components • 

f. Tl and T2 are both real types. 
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Assignment Compatible Types 

T2 is assignment compatible with Tl (that is, a value of type T2 can be 
assigned to a variable of type Tl) if one of the following is time: 

a. Tl and T2 are compatible types which are not files or struc- 
tures that contain files ♦ 

b. Tl is a real type and T2 is compatible with INTEGER. 

c. Tl is REAL and T2 is LONGREAL. In this case the LONGREAL is 
rounded before being assigned. A run-time error will occur if 
the LONGREAL value is outside the range of the REAL. 

d. Tl and T2 are compatible ordinal types and the value of type T2 
is in the closed interval specified by the type Tl. 

e. Tl and T2 are compatible set types and all the members of the 
value of type T2 are in the closed interval specified by the 
base type of Tl. 

f . Tl is a PAC and T2 is a string literal with the same or fewer 
components as Tl. In the case where T2 is shorter than Tl, T2 
will be extended on the right with blanks. 

For operations that require assignment compatibility, a compile-tirae or 
run-time error will be produced if either: 

a. Tl and T2 are compatible ordinal types and the value of type T2 
is not in the closed interval specified by the type Tl. 

b. Tl and T2 are compatible set types and any member of the value 
of tjrpe T2 is not in the closed interval specified by the base 
type of the type Tl. 

For operations that require assignment compatibility, the following im- 
plicit conversions are performed prior to the operation: 

a. 1-word INTEGER values are converted to 2-word INTEGER values. 

b. 2-word INTEGER values are converted to 1-word INTEGER values. 

c. INTEGER values are converted to REAL values. 

d. INTEGER values are converted to LONGREAL values. 

e. LONGREAL values are rounded to REAL values. 

f . Set values are widened or narrowed to the type Tl. 

g. Shorter string literals are extended on the right with blanks 
to become compatible with longer PACs. 
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Two t3^es, Tl and T2, are expression compatible if either of the follow- 
ing is true: 

a. Tl is assignment compatible with T2« 

b. T2 is assignment compatible with Tl. 

Special Cases 

The pointer constant NIL is both compatible and assignment compatible 
with any pointer type. 

The empty set [] is both compatible and assignment compatible with any 
set type. 
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Chapter 6 

Files 



Introduction 

Files, although declared in the VARiable section, are different from 
other variables. The main purpose of a file is to allow the program to 
communicate with the program environment. 

Logicai Fiies 

All file variables used in HOST Pascal programs are logical files. Each 
logical file has an identifier associated with it. The logical file 
structure consists of a sequence of components of the same type. These 
components may be of a simple type^ such as INTEGER, REAL, or CHAR; or 
they may be of structured types, such as arrays or records. The com- 
ponents cannot be of type FILE or a structured type that contains a file. 

The identifiers associated with the file and the component type are 

declared in a VARiable declaration section. All files used in the 

program, except files INPUT and OUTPUT, must be declared before they are 
used. Files INPUT and OUTPUT are predefined: 

INPUT, OUTPUT : TEXT; 

and can be accessed in any routine or program body if declared in the 
program heading. 

Examples: 

TYPE 

STR70 = PACKED ARRAY [1..70] OF CHAR; 
person = RECORD 

name : STR70; 

age_in_years : 0. , 120 ; 

employee_number : O..5OOO 

END; 

VAR 

people_file : FILE OF person; 
string_file : FILE OF STR70; 
int^file : FILE OF CHAR; 
num file : FILE OF INTEGER; 



A logical file must be opened if it is to be accessed. The procedure 
used in opening the file determines how the file components may be 
accessed. 

The compiler automatically generates code for the files INPUT and/or 
OUTPUT, if the file was listed in the program heading. RESET code is 
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applied to file INPUT, and REWRITE code is applied to file OUTPUT, at the 
beginning of the program body. 

Sequential Files 

Sequential files are logical files that have been opened through the 
procedures RESET, REWRITE, or APPEND. Components in these files must be 
accessed in sequence. 

An existing sequential file can be changed only by rewriting the entire 
file (REWRITE), or by appending new data to the file (APPEND). 

The process of opening associates the logical file with a physical file. 

Physical Files 

A physical file is either an I/O device or a disc file that exists out- 
side the program environment on the 6UOOO system. I/O devices that may 
be accessed are: display, printer, keyboard, displayl, rs232, and null. 
Disc files are identified with file names. A file name has the syntax: 

<narae>[: [<userid>]] [:<digit>] [:<type>] 

Textfiles 

The identifier TEXT is predefined as follows: 
TYPE 

TEXT = FILE OF CHAR; 

Textfiles are similar to other files but are further structured into 
lines that are separated by line markers. Line markers may be generated 
by the standard procedure WRITELN and be detected by the standard func- 
tion EOLN. 

A textfile type definition specifies a structure consisting of a sequence 
of components that are all of type CHAR. The number of components is not 
fixed by the file type definition. Sequential operations applicable to 
variables of the type File of CHAR also apply to textfiles. Line markers 
are not of type CHAR. If a READ is performed when the end-of-line has 
been reached, a blank character will be stored into the file variable. 

Logical File Characteristics 

Every logical file is associated with a file buffer variable, current 
position pointer, and a state or mode. 



6-2 



Model 6U817A 
HP6U000 
HOST Pascal 



File Buffer Variable 

The file buffer variable is of the same type as the filers component 
type, denoted: f^, where f is the identifier associated with the file. 

The file buffer variable is used to access the component to be read from 
or written to the file. 

Once the file has been opened, the file buffer may be accessed by the 
program as a variable of the file component type. The contents of the 
file buffer may be assigned to a variable through the assignment state- 
ment. For example: variable^id := file_id'^ would assign the contents of 
the f ile_id buffer to "variable_id" . The variable must be of a type that 
is assignment compatible with the file's component type. (Files of the 
predeclared type TEXT have file buffers variable that are assignment com- 
patible with variables of the predeclared type CHAR). 

Example: 

TYPE 

Book_info = RECORD 

title : packed array [1..50] of char; 
author : packed array [I..50] of char; 
number : 1.. 32000; 

status : (on_shelf, checked_out, lost, ordered) 

END; 

VAR 

book : book_info; 

book file : FILE OF book info; 



BEGIN 

book := book^file'^; 

END; 



Current Position Pointer 

The current position pointer marks a component of the file. It is used 
with the file buffer to access components of the file. The first com- 
ponent of a file is number 1. 



File States 

Logical files are either OPEN or CLOSED. Logical files, when open, will 
be in either a readable or writable state. Files are opened into a 
readable state by the procedure RESET. Files are opened into a writable 
state by the procedure REWRITE, or by the procedure APPEND. Files that 
are closed are not accessable. 
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Opening Files 

A file cannot be accessed, although previously declared, until it has 
been opened. There are three predefined procedures that can be used to 
open a file. Those procedures are: RESET, REWRITE, and APPEND. Files 
opened by these procedures are sequential files. 



RESET(f) 

RESET(f,s) 

RESET(f,s,t) 

A file opened by the procedure RESET(f) is opened in a readable mode. 

If the file (f) is already open when RESET is called, then file (f) is 
automatically closed and then reopened. 

Then the logical file (f) is associated with a physical file. 
Association is performed by use of a file name. The name is obtained ac- 
cording to the rules given in the section on "Associating Logical and 
Physical Files". If the physical file does not exist, an error occurs. 
If the file is not empty, the file pointer will be positioned at the 
first component of the file. 

After the procedure RESET(f) is called, the current position points to 
the first component if file (f) is not empty. Then a call to the stan- 
dard procedure GET occurs. In addition, the function EOF(f) remains 
FALSE. If the file is empty, the contents f^ is not defined and EOF(f) 
becomes TRUE. 

An optional second parameter, (f,s), may be included in the procedure 
call. This is a string parameter that may be used to specify the physi- 
cal file by name. The string parameter is described in the section tit- 
led "Associating Files Through The String Parameter", in this chapter. 

A third parameter, (f,s,t), is also optional and of type string. The 
string may contain system dependent information. The third parameter is 
not used by HOST Pascal but is allowed for compatibility with other HP 
Pascal systems. 



REWRITE(f) 

REWRITE(f,s) 

REWRITE(f,s,t) 

A file opened by the procedure REWRITE (f) is in the writable mode. 
Rewrite (f) discards any previously existing components (file is now 
empty) and the current position points to the first position of the file. 
The content of the file buffer is undefined, and the function EOF(f) 
becomes TRUE. 

If the file (f) is open when REWRITE is called, then file(f) is 
automatically closed and reopened. 
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If the physical file associated with (f) exists and is a disc file, the 
physical file is purged, any existing components of the file are lost, 
and a new physical file is created. 

A second parameter, (f,s), described in the section "Associating Files 
Through The String Parameter", may be included in the procedure call. 

A third parameter, (f,s,t), may be included, and is interpreted as in the 
procedure RESET. 



APPEND(f) 

APPEND(f,s) 

APPEND(f,s,t) 

A file opened by the procedure APPEND(f) is in the writable mode. The 
components of file(f) are not discarded, however. The current position 
pointer is set to just after the last existing component in the physical 
file. The content of the file buffer is undefined and the function 
EOF(f) is TRUE. 

If the file(f) is open before APPEND is called, file(f) is automatically 
closed and reopened. 

If the physical file associated with (f) does not exist, it will be 
created, as described in the section REWRITE. 

A second parameter, (f,s), may be included in the procedure call. This 
is a string parameter described in "Associating Files Through The String 
Parameter" in this chapter. 

A third parameter, (f,s,t), may also be included. This parameter is in- 
terpreted as by RESET. 



Associating Logical and Physical Files 

A physical file may be associated with a logical file in one of following 
ways: 

a. An external name may be supplied as a second parameter to the 
predeclared procedures APPEND, RESET, and REWRITE. 

Example: 
RESET (T,*DATA:MINE:data*); 



b. If the logical file was open before the call to APPEND, RESET, 
or REWRITE, then the physical file associated with (f ) will be 
the same physical file that was associated with (f) before the 
call. 
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c. If the logical file appears as a parameter in the prograjn head- 
ing an external naone is bound to that file when the program is 
invoked through the run command. 

d. If no external name is supplied, a file name will be created. 
This name will be the same as the first nine characters of the 
logical file identifier. Any lower case alphabetic characters 
will be converted to upper case. 



Associating Files Through the String Parameter 

One method of associating logical and physical files is through the 
string parameter. This method involves the use of the optional second 
parameter in the predefined procedures APPEND, RESET, and REWRITE. 

The second parameter of the procedures is a string expression that names 
a physical file to be associated with the logical file named by the first 
parameter. Note that apostrophes must be treated as those in a string 
literal. 

The string parameter allows the user to both specify and later change the 
association between logical and physical files within the program. If a 
logical file is opened through a procedure using a second parameter, any 
previous association between that logical file and physical file is no 
longer in effect. The physical file is closed and a new physical file 
(named by the second parameter) is opened atnd associated with the logical 
file. The string parameter is ignored if its value is either the "null" 
string or all blanks. 

Sequential File Operations 

A file can be accessed only after it has been opened. There are six 
predefined procedures in HOST Pascal that can be used to access the com- 
ponents of a file. Those procedures are GET, PUT, READ, READLN, WRITE, 
and WRITELN. 



Textfile Operation 

Textf iles may be used as parameters with any of the procedures used to 
access non-text sequential files. In addition, several standard 
procedures and functions can be used exclusively with textf iles. The 
procedures are READLN, WRITELN, and PAGE; the functions are LINEPOS, and 
EOLN. 



GET(f) 

The procedure GET(f) advances the current -posit ion pointer one component, 
but does not cause the file component to be assigned to the file 
variable. Rather, after performing GET(f), a subsequent reference to the 
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file buffer f^^ or a call to eof(f) or eoln(f), will actually cause the 
input operation and the assignment of the file component to the file 
variable. This so-called "deferred GET" implementation is useful when 
the physical file being accessed, such as a keyboard, is interactive in 
nature • 

If the component is the last one of the file, the function EOF(f) will be 
TRUE the next time GET(f) is called. If the file was not opened in the 
readable mode, or if the EOF(f) was TRUE prior to the procedure call, an 
error will occur. 



PUT(f) 

The procedure PUT(f) assigns the contents of the file buffer into the 
current component of (f), and advances the current -posit ion pointer to 
the next component. Following the procedure call, the content of the 
file buffer is undefined. An error occurs if the file was not in a 
writable mode prior to the procedure call. 



READ(f,v) 

For a file(f) that is not a textfile, and a variable (v) of a type that 
is assignment compatible with the type of the filers components, the pro- 
cedure call READ(f,v) will assign the contents of the file buffer to 
variable (v), and advance the current -posit ion pointer one component. If 
file(f) is omitted, the file INPUT is assumed. 

Errors will occur if the file was not opened in the readable mode, or if 
EOF(f) was TRUE prior to the call to READ(f,v). 

The procedure READ(f,v) may contain additional parameters, vl,...,vn. 
READ(f ,vl, . . . ,vn) is equivalent to; 

READ(f,vl); 



READ(f,vn); 

READ(v) is equivalent to READ( input, v) ; READ(f,v) transfers from file (f) 
to variable (v). If (f) is not a text file, READ(f,v) is equivalent to: 

V J = f ^ \ 
GET(f);! 

The file component tjrpe must be assignment compatible with (v). (v) may 
be a component of a PACKED structure. 
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READ(f,v) With Textfiles 

Although the textfiles contain only components of type CHAR, the variable 
(v), in the procedure call READ(f,v), may be of type INTEGER, REAL, 
LONGREAL, PAC, string, a subrange of INTEGER, CHAR, or a subrange of 
CHAR. This is possible because the procedure does an implicit conversion 
from the ASCII form that appears in the text file to the actual form 
stored in the variable. 

If variables of type REAL, LONGREAL, INTEGER, or INTEGER subrange are in- 
cluded as parameters in the procedure READ, the file will be searched for 
characters that satisfy the syntax of the variables. 

If (f) is a textfile, even though the textfile contains only characters, 
(v) may be compatible with CHAR and may be a component of a PACKED struc- 
ture; (v) may be compatible with INTEGER; (v) may be REAL or LONGREAL; 
(v) may be a PAC; or (v) may be a string. 

The action performed depends on the type of the variable. 

If (v) is compatible with CHAR, then READ(f,v) is equivalent to v := f; 
GET (f). 

If (v) is compatible with INTEGER, then READ implies reading from (f) a 
sequence of characters forming a number according to the syntax shown in 
Figure 6-1. 



An implicit conversion from the ASCII representation to the internal 
representation takes place if the variable is INTEGER or REAL. 

An error will occur if the proper sequence of characters is not found or 
the value read is not in the range of integers. 

Preceding blanks and line markers are skipped. The value will be assign- 
ed to (v) after reading the digits. will then contain the character 
immediately following the last digit read. 

The READ ssmtax, if (v) is REAL or LONGREAL, is shown in Figure 6-2. 




READ 
INTEGER- 



DIGIT 




Figure 6-1. READ INTEGER Syntax 
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READ 

REAL OR — 
LONGREAL 



UNSIGNED 
INTEGER 





UNSIGNED 








INTEGER 















UNSIGNED 
INTEGER 



L 



UNSIGNED 
INTEGER 



U(T> 



Figure 6-2. READ REAL or LONGREAL Syntax 



An error will occur if the proper sequence of characters is not found or 
the value read is not in the range of REAL or LONGREAL. 

Preceding blanks and line markers are skipped. The value will be assign- 
ed to (v) after reading the digits, will then contain the character 
immediately following the last digit read. 

If (v) is a PAC tjrpe, then characters are read into (v) until either (v) 
is full or EOLN(f) becomes TRUE. If EOLN becomes TRUE before (v) is 
full, then the remainder of (v) is filled with blanks. If EOLN(f) is 
TRUE when READ(f ,v) is called, then an initial READLN(f) is done to skip 
past the line marker. 

If (v) is a string variable, then characters are read into (v) until 
either (v) is full or EOLN(f) is true. The length of the string will be 
set to the number of characters that were read. If eoln{f ) is true when 
read(f,v) is called, an initial readln(f) is done to skip past the line 
marker. 



READLN(f,v) 

The parameter list for READLN(f,v) is similar to that of the procedure 
READ. The file INPUT is assumed if the file identifier is missing. 
Several variable parameters of the types CHAR (or subrange of CHAR), 
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REAL, LONGREAL, INTEGER (or a subrange of INTEGER), PAC, or string can be 
used. 

READLN(v) is equivalent to READLN( input ,v) . READLN(f ,vl, . . • ,vn) is 
equivalent to: 

READ(f ,vl, . • • ,vn) ; 
READLN(f);. 

READLN(f) is equivalent to: 

Tohile not eoln(f ) do 

get(f); 
get(f);, 

READ and READLN differ in their use of the end-of-line. After a call to 
READLN, the current -posit ion pointer is positioned after the end-of-line. 
The variable parameters are filled followed by a skip to the next line, 
ignoring whatever remains in the line. 



WRITE(f,e) 

The procedure call WRITE(f,e) will assign the value of the expression (e) 
to the file buffer, assign the contents of the file buffer into the cur- 
rent component of (f), and advance the current -posit ion pointer to the 
next component. 

If the file parameter is not included in the procedure call, then (f) is 
assumed to be the OUTPUT file. 

An error will occur if the file was not in a writable mode prior to the 
procedure call. 

The procedure WRITE(f,el) may contain additional parameters, e2,,..,en, 
of a type compatible with the file*s component tj^e. The procedure call 
WRITE(f ,el, , • , ,en) is equivalent to: 

WRITE(f,el); 



WRITE(f,en); 
WRITE (e) is equivalent to WRITE(output ,e) . 

If (f) is not a textfile, then WRITE (f,e) is equivalent to f := e; 
PUT(f);, Note that e must be assignment compatible with the component 
type of (f). 

If (f) is a textfile, then write parameters may have one of the following 
forms: 
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a. e 

b. e:m 
c* e:m:n 

where e, m, and n are expressions. The form e:m:n is legal only if the 
type of e is REAL or LONGREAL. 



WRITE(f,v) With Textfiles 

The procedure WRITE (f,v)^ when used with textfiles, uses the variable 
identifiers occurring as "write parameters". The program ouput can be 
formatted through the use of these write parameters to display program 
results in a more readable form. 

Write parameters may be listed in one of three different forms: 

a. expression 

b. express ion :m 

c • expres s ion : m : n 

where m and n are field width parameters and must be expressions com- 
patible with integer. 

If default formatting is desired, the first form is used. The type of 
the expression may be an integer, real, longreal, char. Boolean, PAC, or 
string. The field-width parameter (m) will be defaulted depending on the 
type of the expression. The field width default values are shown in 
table 6-1. 



Table 6-1. Field Width Parameter Default Values 



PARAMETER TYPE 


(m) FIELD WIDTH DEFAULT 


CHAR 


1 


PAC 


length of PAC 


string 


cvirrent length of string 


INTEGER 


12 


REAL 


12 


LONGREAL 


20 


BOOLEAN 


length of TRUE or FALSE 



Example: 

flop := 20; 

write ( 'This string contains ' ) ; 

write (flop) ; 

write ( * characters . ' ) ; 
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will produce output of the form: 

This string contains 20 characters. 

Field width parameters can be used to adjust the space into which a value 
is written when formatting is desired. For expressions of type INTEGER, 
CHAR, or string, only the first field width parameter can be specified, 
therefore, the second form of write parameter is used. 

The field width parameter (m) is an integer expression specifying the 
number of characters that will be used to represent the value in the 
textfile. If (m) is greater than the number of characters actually 
needed, the additional characters will be represented as blanks preceding 
the value. Thus the value is right justified. 

For integer or real expressions (m) is ignored and text remains tin- 
abridged if parameter (m) is less than needed. Text is truncated, 
however, if (m) is less than needed for CHAR, string, and enumerated 
types. If (m) < 0, an error will occur. 

Both (m) and (n) parameters can be used to format REAL values. If param- 
eter (n) is present, a fixed-point representation with (n) digits after 
the decimal point is obtained. If (n) is 0 the decimal point will be 
omitted. No more significant digits will be written than are contained 
in the internal representation. If (n) is less than the number of sig- 
nificant digits in the internal representation, the number will be 
rounded off. When the parameter (n) is missing or the value cannot be 
expressed with a fixed-point representation, a floating point representa- 
tion consisting of a coefficient and scale factor will be chosen. 

A text file has a maximum line length that may be controlled using the 
LINESIZE compile option. The Host Pascal system insures that longer 
lines are not written by automatically performing WRITELN operations if 
necessary. 

When writing to a text file, the system counts the number of characters 
written since the last WRITELN operation. 

When writing each field, the system checks to see if the new field will 
fit on the present line without exceeding the maximum line length. If 
the field will not fit, the system performs a WRITELN operation and then 
writes the field on the next line. 



WRITELN(f,p) 

The procedure WRITELN is the same as the procedure WRITE, except that an 
end-of-line marker is placed immediately after writing the values of the 
write parameters. As with the procedure WRITE, parameters in WRITELN may 
be of type CHAR, subrange of CHAR, INTEGER, REAL, LONGREAL, BOOLEAN, PAC, 
string, or a subrange of INTEGER. 

WRITELN is equivalent to writeln (output ) . writeln(f ,pl, . . .pn) is 
equivalent to: 



6-12 



Model 6i48l7A 
HP6UOOO 
HOST Pascal 



WRITE(f,pl,.. .pn); WRITELN(f); 



PAGE(f) 

The procedure PAGE(f ) will cause the next element written to textfile (f ) 
to appear at the top of the next page. PAGE causes the line printer to 
skip to the top of form so it will only effect a printed listing. If the 
file (f) is not a textfile, an error will occur. If the procedure call 
contains no parameters, the predefined file OUTPUT is assumed. 



LINEPOS(f) 

LINEPOS is a fiinction that returns the number of characters read from, or 
written to the file since the last end-of-line. The component currently 
in the file buffer is not included in this coxrnt. 

LINEPOS (f) is an HP Pascal extension. 



EOLN(f) 

The function EOLN will return the Boolean value TRUE if the position 
pointer is located at the line marker, and will be FALSE at any other 
position. 

If parameter (f) is omitted, the file IKPUT is assumed. 

Closing Files 

A file is closed by use of the procedure CLOSE. Any attempt to access a 
closed file will produce an error. 

Opening a file will implicitly close any physical file previously as- 
sociated with that logical file. 

If any physical file was associated with a logical file, the procedure 
CLOSE will save the physical file unless the file is purged through the 
string parameter PURGE. The procedure CLOSE(<f ile_name>, PURGE) will 
purge any physical file associated by the program with the file 
(filejtiame) at the time of the call. 

The procedure CLOSE is an HP Pascal extension. 
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Summary of Procedures and Functions 

Table 6-2 provides a brief summary of procedures and fxmctions listed in 
chapter 6, and the types of file with which they can be associated. 



Table 6-2. Procedure and Function to File Association 





Sequential File 




text 


non-text 


PUT 


X 


X 




X 


X 


RESET 


X 


X 


REWRITE 


X 


X 


APPEND 


X 


X 


CLOSE 


X 


X 


EOF 


X 


X 


EOLN 


X 




^LINEPOS 


X 




READ 


X 


X 


READLN 


X 




WRITE 


X 


X 


WRITELN 


X 




PAGE 


X 
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Chapter 7 



Standard Procedures and Functions 



File Handling Procedures 

The following procedures are used to manipulate files in the HOST Pascal 
6UOOO compiler. 

The procedures APPEND, RESET, and REWRITE may have first, second, and 
third parameters (f,s,t). The optional second parameter is a string that 
specifies a system file to be associated with (f). The optional third 
parameter is also a string specifying implementation dependent options 
relating to the file. If s and t parameters are all blanks they are 
treated as if they were omitted. 

The following actions occur when APPEND, RESET or REWRITE are called: 

a. The file (f) is closed if it was open. 

b. An actual file or I/O device is associated with (f). The name 
of the file or device is determined as follows: 

1. The second parameter is used as a file name. 

2. If the second parameter is all blanks, or was omitted, 
then the following takes place: 

a) If the file was open previous to the call to APPEND, 
RESET, or REWRITE, the same file is used. 

b) If the file was not open previous to the call, and if 
the file was a program parameter, then the name given 
to the program parameter is used as file name. 

c) If the file was not a program parameter, or if the 
file name associated with the program parameter was 
all blanks, then the file name becomes the same as 
the file variable identifier. 



APPEND (f ) 
APPEND (f,s) 
APPEND (f ,s,t) 

The procedure APPEND opens the file as a sequential file in the writable 
mode. Any components previously existing in the file remain, and the 
pointer is positioned directly after the last component of the file. The 
content of the file buffer is undefined. The boolean eof(f) will be 
TRUE. New data will be added to the file, at the end of the file. 
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The parameter (f) must be a file that has been previously declared* It 
need not be closed before the call is made. If the file was open before 
the procedure call, the file is automatically closed and reopened in a 
writable mode. 



RESET(f) 

The procedure RESET opens the file as a sequential file in the readable 
mode. The current -posit ion pointer is initially positioned at the first 
component of the file, followed by a GET. 

The parameter (f) must be a file that has been previously declared. It 
need not be closed before the call is made. If the file was open before 
the procedure call, it is automatically closed and then reopened in the 
readable mode. 



REWRITE(f) 

The procedure REWRITE opens the file as a sequential file in the writable 
mode. The current -posit ion pointer is placed at the first component. 
Any components previously existing in the file are discarded and the file 
buffer is undefined. The function eof (f ) is true. 

If the Pascal file io associated with a system file by the procedure 
REWRITE, all contents of that system file are destroyed. 



CLOSE(f) 
CLOSE(f,s) 

The procedure CLOSE makes the file unavailable for accessing, and as- 
sociation with a system file is dropped. The content of the file buffer 
is undefined. The boolean eof(f) will be true. 

The parameter (f ) must be a file which has been previously declared. It 
need not be open before the call is made. If the file was closed before 
the procedure call, no error will be produced. 

The second parauneter is optional and is of type string. This parameter 
can take on one value, PURGE. If the string PURGE is used, the file is 
destroyed when it is closed. If the second parameter is omitted or has 
any value except PURGE, the file will be saved. 



GET 

The procedure GET advances the current file position. A following 
reference to the buffer variable will actually move this component into 
the buffer variable. If the component does not exist, the content of the 
file buffer is undefined and eof (f) will be true. An error will occur if 
eof(f) was true before the call or if the file was not readable. 



7-2 



Model 6U817A 
HP6UOOO 
HOST Pascal 



The parameter (f) must be a file that has previously been opened in a 
readable mode. 



PAGE 

The procedure PAGE causes printer orientation to the top of the next page 
when the text file (f) is printed. 

The file (f) must have been previously declared as a text file. The file 
must be in a writable mode. 

The file OUTPUT is assumed if the parameter (f) is omitted. 



PUT 

The procedure PUT writes the value of the buffer variable f^ to the cur- 
rent component of (f) and advances to the next component. Following the 
call, the content of the file buffer is \mdefined. 

The parameter (f) must be a file that has previously been opened in a 
writable mode. 



READ 

The procedure READ accepts input from a file that has previously been 
opened in a readable mode. Data from the file is then assigned to vari- 
ables specified as parameters in the procedure call. 

The file INPUT is ass\imed if the file identifier is not included as a 
parameter. 

The procedure call READ (f ,vl, . . . ,vn) is equivalent to the procedure 
calls READ(f,vl), READ(f ,v2) , . . . ,READ(f ,vn) . 

The procedure READ can be used to read from a file that is not a 
textfile. In that case READ (f^x) is equivalent to x := f^, GET (f). 
READ (f ,xl, . . . ,xn) is equivalent to READ (f ,xl) ; . . . ;READ(f ,xn) . If v is 
a variable of type CHAR, then READ(f,v) is equivalent to v := f^, GET(f). 

If (f ) is a textfile and v is a variable of type INTEGER (or subrange of 
integer) or REAL or LONGREAL, then READ(f ,v) implies the reading from (f) 
of a sequence of characters that form a number according to the following 
sjmtax : 

< integer number > ::= <sign><unsigned integer>; 

<real number> ::= <sign><input real number ><exponent>; 

< input real number> ::= <digit sequence>| 

<unsigned integer>.<digit sequence > | <unsigned integer>| 

<unsigned integer >.; 
<exponent> ::= E<scale factor> |L<scale factor>| E | L | 

<empty>; 
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The value of the number read is assigned to the variable v. Preceding 
blanks and line markers are skipped ♦ Following the read, will contain 
the next character immediately following the characters read. The result 
of reading a longreal number is independent of the letter preceding the 
scale factor. 

READ(f,v), if V is a variable of type PAC, implies the reading of charac- 
ters into V. If eoln(f) becomes true before v is filled, then the 
remainder of v is filled with blanks. If contains the line marker 
when this call is made, an initial READLN is performed. In this case v 
will contain all blanks if the next component is the line marker, 

READ (f,v), if V is a variable of string t3^e, implies the reading of 
characters into v until either EOLN is true, or v is filled. The current 
length of v is set to the number of characters read. If EOLN is true 
when this call is made, an initial READLN is performed. In this case, v 
will contain the null string if the next component is a line marker. 



READLN 

The procedure READLN is used to read and skip to the next line. It is 
similar to the procedure READ used with text files in that the input is 
received from the file and assigned to the variable parameter(s) . Once 
this action has been completed, however, the procedure READLN will ignore 
amy remaining characters on the line and the next access to the file will 
begin on the following line. 

The parameter (f) must be a file that has been previously declared as a 
text file and opened in the readable mode. The file INPUT is assumed if 
the file identifier is not included as a parameter. 

The variables vl thru vn may be of type CHAR, REAL, LONGREAL, INTEGER (or 
subrange of INTEGER), PAC, or string. Their values will be assigned in 
the same way as variable paraaneters of the procedure READ used with text 
files . 



TIMEOUT(f,t) 

The procedure TIMEOUT is used to specify the time interval for waiting 
for a character to be received on the "rs 232" I/O device. TIMEOUT has 
an effect only if text file f is open for reading to the RS 23 2 device. 
The integer expression t specifies the time interval as a number of ticks 
of the real time clock. A clock tick is either l/60th or l/50th of a 
second depending on the AC line frequency. If the value of t is nega- 
tive, timeout timing is disabled and the RS232 receiver will wait forever 
for a character. When the time interval is set, it remains in effect for 
all subsequent input operations until TIMEOUT is called again or the file 
is closed. 

TIMEOUT is am extension to HP Standard Pascal and requires the compiler 
directive $EXTENSIONS 0N$ to be in effect. 
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Example: 

$EXTENSIONS 0N$ 

RESET(F,"RS232"); 

TIMEOUT (F, 120); 
$IOCHECK OFF$ 

READ(F,CH); 
$IOCHECK 0N$ 

IF lORESULT = 0 THEN 
(Handle valid data} 

ELSE 

{Handle errors including timeout); 



In the above example » the timeout interval is set to 120 ticks which is 
2.0 seconds if the AC line frequency is 60 Hertz. The READ procedure 
will complete either when a character is received or when 2 seconds have 
elapsed, whichever comes first. The function lORESULT is used to deter- 
mine which happened. 



WRITE 

The procedure WRITE places the values of its write parameters into a file 
(f) previously opened as a sequential file in a writable mode. 

The file OUTPUT is assumed if the file identifier (f) is not included as 
a parameter. 

WRITELN 

The procedure WRITELN places the values of its write parameters into the 
text file (f), and appends a line marker to the file immediately follow- 
ing the last character. The statement: 

WRITELN(f ,pl, . • . ,pn) ; 

is equivalent to: 

WRITE(f ,pl, . . . »pn) ; 
WRITELN(f); 

The file identifier (f) must be a text file that has previously been 
opened. The predeclared file OUTPUT is assiimed If the parameter (f) is 
not included. 
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String Handling Procedures and Functions 



SETSTRLEN 

The procedure SETSTRLEN (s,l) sets the current length of string variable s 
to 1 without changing any characters in the string. A run-time error oc- 
curs if the value of integer expression 1 is less than zero or greater 
than STRMAX(s). 

Example: 

VAR 

si : string [100] ; 



setstrlen(sl,10) ; 



STRAPPEND 

The procedure STRAPPEND ( si ^s2) concatenates string expression s2 to the 
value of string variable si and stores the result in si* A run-time er- 
ror occurs if STRLEN(sl) + STRLEN(s2) is greater than STRMAX(sl). This 
procedure is equivalent to: 

si := si + s2; 

Example: 

VAR 

si : string [10] ; 

BEGIN 

si := 'ABC*; 
STRAPPEND(sl, 'DE'); 

END. 

si now has the value ' ABODE \ 



STRINSERT 

The procedure STRINSERT ( si, s 2, startpos) inserts string expression si into 
string variable s2 starting at the position startpos. A run-time error 
occurs if the value of integer expression startpos is less than one or 
greater than strlen(s2) + 1. A run-time error occurs if strlen(sl) + 
strlen(s2) is greater than strmax(s2). 

Example: 

s := 'ABCDE*; 
STRINSERT(*xy\s,U); 
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The value of s is now *ABCxyDE' • 



STRDELETE 

The procedure STRDELETE (s,startpos,nchars) deletes nchars characters from 
string variable s starting at position startpos. If the value of integer 
expression nchars is less than 1, then no change is made in s and the 
values of the other arguments are not checked. Otherwise, a run-time er- 
ror occurs if the value of integer expression startpos is less than 1 or 
if startpos + nchars-1 is greater than strlen(s). 

Example: 

s := 'ABODE*; strdelete(s,3,2) ; 
The value of s is now 'ABE\ 



STRMOVE 

The procedure STRMOVE copies characters from one part of a string or PAC 
expression into part of a string or PAC variable. STRMOVE requires five 
parameters : 

STRMOVE (nchars, source, sourcepos, dest, destpos); 

Nchars is an integer expression specifying the number of characters to be 
moved. If the value of nchars is less than 1, no change is made to the 
destination and no run-time errors occur regardless of the value of other 
parameters . 

Source may be a string literal, a string expression, or a PAC expression. 

Sourcepos is an integer expression specifying the first character in the 
source to be moved. A run- time error occurs if the value of sourcepos is 
less than 1. If source is a string, a run-time error occurs if sourcepos 
+ nchars-1 is greater than strlen ( source ) . If source is a PAC, a run- 
time error occurs if sourcepos + nchars-1 is greater than the upper bound 
of the PAC type. 

Dest is either a string variable or a PAC variable. 

Destpos is an integer expression specifying the index of the first 
character in dest to be changed. A run-time error occurs if the value of 
destpos is less than one. 

If dest is a string, run-time errors occur if either destpos is greater 
than strlen ( dest )+l, or if destpos + nchars-1 is greater than 
strmax(dest) . If destpos + nchars-1 is greater than the current length 
of dest, then the current length of dest will be set to destpos + 
nchars-1. 



7-7 



Model 6k8nA 
HP6UOOO 
HOST Pascal 



If dest is a PAC, a run-time error will occur if destpos + nchars-1 is 
greater than the upper bound of the PAC type* 

STRMOVE will properly handle the case of moving part of a string or PAC 
variable onto an overlapping part of itself. 

Example: 

VAR 

P : packed array [1..10] of char; 



P := 'ABCEDFGHIJ*; 

strmoveO, '123\l,p,5) ; 

The value of p is: 'ABCD123HIJ\ 



STRLEN 

The f\mction STRLEN(s) returns an integer that is the current length of 
string expressions. 

Examples: 

STRLEN returns 0. 

STRLEN ABCDE V + *FGHIJ') returns 10. 



STRMAX 

The function STRMAX(s) returns an integer that is the maximum declared 
length of string variable (s). 

Example: 

VAR 

SI : string [100]; 



strmax (si) returas 100. 



STR 

The fxmction STR(s,startpos,nchars) returns a new string that is a copy 
of some portion of string expression (s). The string returned has a 
length equal to the value of integer expression nchars, and begins with 
the character s [ s tartpos ] . 
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If nchars is less than 1, the string returned is the null string and no 
further checks are made on the values of the other parameters* 
Otherwise, a run-time error occurs if the value of integer expression 
startpos is less than 1, or if startpos + nchars-1 is greater than 
strlen(s). 

Example: 

str('ABCDE\U,2) returns *DE\ 



STRLTRIM 

The function STRLTRIM(s) returns a new string that is a copy of string 
expression (s) with leading blanks removed. 

Example: 

strltrim (* ABC returns 'ABC \ 



STRRTRIM 

The function STRRTRIM(s) returns a new string that is a copy of string 
expression (s) with trailing blanks removed. 

Example: 

strrtrim (' ABC returns * ABC\ 



STRREAD 

The procedure STRREAD (s ,startpos ,nextpos ,vl, . . • ,vn) performs symbolic to 
internal conversion from the contents of string expression s into vari- 
ables vl..,vn. It is similar to the procedure READ (f ,vl, • . • ,vn) where f 
is a textfile. READ obtains its input characters from textfile f while 
STRREAD obtains its input from string expression s. 

The string s is treated as a single line of a TEXT file with an implicit 
line marker at its end followed by atn implicit end of file. The integer 
expression startpos indicates the starting character in s. After the 
operation, the integer variable nextpos will contain the index of the 
next component of s that would be read from. The conversion rules and 
allowable types for variables vl...vn are the same as for READ from TEXT 
files . 

A riin-time error will occur when STRREAD is called if the value of 
startpos is less than 1 or greater than STRLEN(s) +1. A run-time error 
will occur if STRREAD attempts to access data beyond the implicit line 
marker at the end of the string s. 
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STRWRITE 

The procedure STRWRITE (s,startpos, nextpos, pi,..., pn) performs internal 
to symbolic conversion from the values of write parameters pl...pn into 
the string variable s. It is similar to the procedure WRITE 
(f ,pl, . • . ,pn) where f is a text file. WRITE places its output characters 
into text file f while STRWRITE places its output characters into string 
variable s. 

The integer expression startpos indicates the first character position in 
s where output characters will be placed. After the operation, the in- 
teger variable nextpos will contain the index of the next component of s 
that STRWRITE would access. The conversion rules and allowable forms for 
write parameters pl...pn are the same as the parsimeters to WRITE when ap- 
plied to text files. 

A run-time error will occur when STRWRITE is called if the value of 
startpos is less than 1 or greater than STRLEN(s) +1. A rxm-time error 
will occur if the routine attempts to write more than STRMAX(s) charac- 
ters into s. 



STRRPT 

The function STRRPT(s,n) returns a new string that is composed of n 
copies of string expression (s). The null string is returned if n is 
less than 1. A r\m-time error occurs if n * strlen(s) is greater than 
255- 

Example: 

strrpt(*ABC\3) returns 'ABCABCABC\ 



STRPOS 

The function STRP0S(sl,s2) searches string expression s2 for string ex- 
pression si and returns the integer index of the beginning of the first 
occurrence of si within s2, or returns 0 if the string si was not found. 

Example: 

strpos('DE\ 'ABCDEF') returns U. 

Dynamic Allocation and De-allocation Procedures 

General Information 

HOST Pascal allows variables to be created during program execution. The 
space, called the "heap", allocated to dynamic variables can then be 
de-allocated and later re-allocated to another variable. Dynamic 
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allocation and de-allocation are useful when variables are needed only 
temporarily, and when a program contains data structures whose maximum 
size may vary each time the program is run. Examples are temporary buff- 
er areas and dynamic structures such as linked lists or trees. Djmamic 
variables are not explicitly declared and cannot be referred to directly 
by identifiers. 

The standard procedure NEW is used to create variables. The standard 
procedure DISPOSE is normally used to de-allocate variables. In HOST 
Pascal, however, the procedure DISPOSE does not actually allow space oc- 
cupied by the dynamic variable to be reused. The procedures MARK and 
RELEASE are used in order to reclaim space used for dynamic variables. 

Vttien it is known in advance that a group of dynamic variables may be 
needed on a short term basis, the state of the heap, before the short 
term variables are allocated, can be recorded by using the predefined 
procedure MARK. When the short term variables are no longer needed, the 
heap can be returned to the original condition by using the predefined 
procedure RELEASE. All variables allocated after the MARK are removed. 

An attempt to allocate variables that require more space than available 
in the heap will cause an error message and aborting of the prograim. 

The following paragraphs describe in greater detail the dynamic 
procedures NEW, DISPOSE, MARK, AND RELEASE. 



NEW(p) 

The procedure NEW is used to allocate memory space for a dynamic vari- 
able, (p) is a variable of tjrpe pointer. (p) can only point to a vari- 
able of a particular type T, and therefore is said to be bound to T. 

When the procedure NEW(p) is called, a section of the heap large enough 
for a variable of type T is allocated and the address of that space is 
held in pointer (p). 

If T is a record with variaints, then the amount of space allocated is the 
amount required by the fixed part of the record, plus the amount required 
by the largest variant. 

An alternative form of NEW cam be used if type T is a record with 
varisints, NEW(p,vl, . . . ,vn) , where vl...vn are constants used to select 
variants and subvariants of the record. The constants must be listed 
contiguously and in the order of their declaration. The amount of memory 
allocated is determined by the size of the variants selected. The tag 
field constant values are used by NEW only to determine the amotmt of 
space needed and are not assigned to the tag fields by this procedure. 



7-11 



Model 6i48l7A 
HP6UOOO 
HOST Pascal 



DISPOSE(p) 

DISPOSE (p) indicates that the dynamic variable p'^ is no longer needed. 
The value of the pointer p is set to NIL. 

If the second form of NEW was used to allocate p'', then the alternate 
form of DISPOSE{p) must be used. DISPOSE (p,vl , . . . ,vn) . The tag field 
values should be identical to those used when the variable was allocated. 
A run-time error occurs if the value of p is NIL when DISPOSE is called. 

DISPOSE does not allow the space used by p^ to be reused. In order to 
reclaim and reuse space previously occupied by dynamic variables, the 
standard procedures MARK and RELEASE must be used. 

MARK(p) 

MARK(p) is a predefined procedure having one parameter, a pointer vari- 
able, that records the HEAP state at the time MARK is executed. Calling 
MARK(p) causes assignment of the first free address in the HEAP to (p) . 
The value of (p) may not change between MARK and RELEASE. Any execution 
of the procedure NEW will build new data structures, starting with the 
address held in (p). 



RELEASE(p) 

RELEASE is a predefined procedure having one parameter, a pointer vari- 
able, that restores the HEAP to the state present at the time of MARK(p). 
The value of (p) may not change between MARK and RELEASE. All djmamic 
variables created after MARK are effectively destroyed, and the memory 
space occupied by those variables is available for allocation to new 
dynamic variables. Be sure that no pointer variables point to dynamic 
structures created after the MARK procedure. 

Transfer Procedures 



PACK 

PACK transfers components of an unpacked array to a packed array. The 
number of components in the impacked array must be greater than or equal 
to the number of components in the packed array. Economy of memory is 
achieved by use of the procedure PACK. 

PACK is used in the form: PACK (a,i,z), where: 

a is of type ARRAY [m. .n] of t; 

1 is of a type compatible with the index type of array a; 

2 is of type PACKED ARRAY [u..v] of t. 
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The procedure successively assigns the values of the elements of array a, 
starting with a[il, to the elements of array z, starting with z[u]. All 
elements of array z, i.e., z[u]..z[v], are assigned values of elements 
from array a. 

The following example uses arrays that have index types compatible with 
integer. 

Example: 

VAR 

a : ARRAY [1..10] OF CHAR; 

z : PACKED ARRAY [1..83 OF CHAR; 

i : INTEGER; 



BEGIN 



i := 1; 

pack (a,i,z); 



END. 

After PACK(a,i,z) is executed, the array z contains values from the first 
eight elements of array a. The difference in size between arrays a and z 
determines the values of i that can be used. In the above example, the 
value of i must be 1, 2, or 3 • If the value of i is 3» then the 3rd 
through 10th elements of a are assigned to z. If the value of i is U, an 
error will occur when PACK tries to access a [11] since PACK attempts to 
assign values to all eight elements of array z. The value of i must also 
be greater than or equal to the lower bound of the iinpacked array. 

In general, given that: 

a : Array [m..n] of t; 

z : Packed array [u. .v] of t; 

where m-n >= u-v. Then PACK[a,i,z] means: 

k := i; 

for j := u to V do 
BEGIN 

z[d] := a[k]; 
k := succ(k); 

END; 

where k is a variable compatible with the index type of a, and j is a 
variable compatible with the index type of z. 
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UNPACK 

The procedure UNPACK transfers components of a packed array to an \mpack- 
ed array. 

UNPACK is used in the form: UNPACK (z,a,i), where: 

z is of t3rpe PACKED ARRAY [u. .v] of t; 
a is of type ARRAY [m..n] of t; 

i is of a type compatible with the index tjrpe of array a. 

The procedure successively assigns the values of the elements of array 
starting with z[u], to the elements of array a, starting with a[i]. All 
elements of array z, i.e., z[u]..z[v], are assigned to elements in array 
^* 

The following example uses arrays that have index types compatible with 
integer • 

Example: 

VAR 

a : ARRAY [1..10] OF CHAR; 

z : PACKED ARRAY [1..8] OF CHAR; 

i : INTEGER; 



BEGIN 



• 

i := 1* 

unpack' (z, a, i); 
• 

END. 

After UNPACK(z,a,i) is executed, the elements a[l] through a[8] contain 
values from the eight elements of array z. The difference in size be- 
tween arrays a and z determines the values of i that can be used. In the 
above example , the value of i must be 1, 2, or 3* If i has any other 
value, an error occurs when \inpack attempts to index array z beyond the 
range of its index type. 



7-lU 



Model 6U817A 
HP6UOOO 
HOST Pascal 



In general, given that: 

a : Array [m, .n] of t; 

z : PACKED ARRAY [u. .v] of t; 

where m-n >= u-v* Then UNPACK [a, i,z] means: 

k := i; 

for j := u to V do 
BEGIN 

a[kl := 2[j]; 
k := succ(k); 

END; 

where k is a variable compatible with the index type of a, and j is a 
variable compatible with the index type of z. 

Arithmetic Functions 

There are eight predefined arithmetic fiinctions in HOST Pascal. Each of 
these functions is passed in an arithmetic expression as a parameter and 
returns a numeric value. 

In some cases the type of the value returned depends on the type of the 
parameter passed. The functions abs (absolute value) and sqr (square) 
return integer values if integer values are passed to them. The other 
arithmetic functions return longreal values if integer values are passed 
to them. All of the fxmctions return a longreal value when a real or 
longreal parameter is passed. 

To compute the values of the functions, HOST Pascal uses system routines 
and compiler-defined algorithms. 



Abs 

abs(X) 

Sqr 

sqr(X) 

Sqrt 

sqrt(X) 



Exp 

exp(X) 



Ln 

ln(X) 



Computes the absolute value of X. 



Computes the value of X squared. 



Computes the square root of X. If X < 0 then a 
run time error occurs. 



Computes e (base of the natural logarithms) to 
the power of X. 



Computes the natural logarithm of X. If X < 0 
then a run time error occurs. 
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Sin, Cos 

sin(X), cos(X) - Computes the sine and cosine of X, in radians. 
Arctan 

arctan(X) - Computes the arctangent of X, in radians. 



Predicates 

The following three procedures return Boolean results. 
Odd 

odd(X) The procedure odd returns TRUE if the value of the integer 
expression X is odd, FALSE otherwise. 

Eof 

eof , or eof (f) where (f) is a file that has previously been 

declared. The procedure eof(f) returns TRUE 
if the file F is not open, F is open in a 
writable mode, or F is open for reading and 
the file is positioned beyond last existing 
component. If the parameter F is omitted, the 
standard file INPUT is assumed. 

Eoln 

eoln, or eoln(f) where (f) is a text file that has previously 

been declared and opened in the readable mode. 
The procedure eoln(f) returns TRUE if the text 
file f is positioned at the end of a line. If 
the parameter f is omitted, the file INPUT is 
assumed. 



Transfer Functions 

Trunc 

trtmc(X) - The function tmanc returns an integer result that is 
the integral part of the real or longreal expression 
X. The absolute value of the result is not greater 
than the absolute value of X. An error will occur if 
the result is not within the integer range. 

Examples: 

trunc (5.61) returns 5 

tiTinc(-3.38) returns -3 

trunc (18. 999) returns I8 
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Round 

round (X) - The function ro\ind returns the integer value of the 
real or longreal expression X rounded to the nearest 
integer. If X is positive or zero, then round (X) is 
equivalent to trunc(X + O.5); otherwise round(X) is 
equivalent to trunc(X - An error will occur if 

the result is not in the integer range. 

Examples: 

round (3.1) returns 3 

round ( -6. U) returns -6 

round (-U, 6) returns -5 

Ordinal Functions 

The ordinal functions are: ord, chr, succ, and pred. 
Ord 

ord(X) - where X is an expression of ordinal type. The func- 
tion ord returns the ordinal number associated with 
the value of X. If the result can be contained in one 
word, a one-word result is returned, otherwise a two- 
word result is returned. If the parameter is com- 
patible with INTEGER, then the parameter value is 
returned as the result. If X is of type char, then 
the result is an integer value between 0 and 255 » 
determined by the ASCII ordering. If X is of any 
other ordinal type (i.e., a predefined or user-defined 
enumeration type), then the result is the ordinal num- 
ber determined by mapping the values of the tjrpe onto 
consecutive non -negative integers starting at zero. 

The ord value of -1 is -1; the ord value of 1000 is 
1000. The ord value of *a' is 97, the ord value of 
'A* is 65. 

The predefined type Boolean, for example, is defined: 

TYPE BOOLEAN = (false, true) and therefore ord (false) returns 
0, and ord (true) returns 1. 

The same method is used to determine the ordinality of an element in 
a user-defined enumeration type. For example, given the declaration: 

TYPE color = (red, blue, yellow); the ord(red) returns 0, 
ord (blue) returns 1, and ord (yellow) returns 2. 
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Chr 

chr{X) - where X is an integer expression. The function chr 
returns the character value whose ordinal number is 
equal to the value of the integer expression X, If 
the RANGE compiler option is ON, a run-time error will 
occur if the value of X is outside the range 0..255- 
If the RANGE option is OFF, a character will be formed 
by zeroing all but the least significant 8 bits of the 
value of X. For any character ch, the following is 
true: chr(ord (ch)) = ch. 

Examples: 

The value of 63 returns the chr ' ? * , the value 100 returns the 
chr 'd*, the value 13 returns the chr 'carriage return*, the 
value 75 returns the chr *K*. 

Succ 

succ(X) - where X is an expression of ordinal type* The func- 
tion succ returns a result having an ordinal one 
greater than the expression X. The result is of a 
tjrpe identical to that of X. If no such value exists, 
no error is reported at the function call, but a run- 
time error will occur if the value is assigned to a 
variable of the ordinal type. Given the declaration: 
TYPE color = (red, blue, yellow); succ (red) returns 
blue, and succ (Yellow) returns a value that is not of 
type color. If X is 1, then succ(X) is 2. If X is 
-5> then succ(X) is -U. If X is 'a\ then succ(X) is 
*b\ If X is false, then succ(X) is true. 

Pred 

pred(X) - where X is an expression of ordinal tj^e. The func- 
tion pred returns a value having an ordinal value one 
less than X. If no such value exists, no error is 
reported at the function call, but a run-time error 
will occur if the value is assigned to a variable of 
the ordinal type. 

Given the declaration: 

TYPE day = (monday, tuesday, Wednesday); the following is 
true: pred (tuesday) = monday, and pred (monday) returns a value 
that is not of type day. 

Examples: 

The pred(l) is 0, the pred(-5) is -6, the pred(*b') is 
'a', the pred(true) is false. 
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Numeric Conversion Functions 

HEX(s) 

OCTAL(s) 

BINARY(s) 

HEX, OCTAL, and BINARY are fxinctions that take the string expression s 
and return an integer. The string is interpreted as a hexadecimal, oc- 
tal, or binary number. Except for leading and trailing blanks, all 
characters in the string must be legal digits in the indicated base. 
Blanks embedded between the digit characters are not allowed. 

File Handling Functions 

The functions LINEPOS, and POSITION enable the program to determine the 
current position in a file relative to the beginning-of-f ile and 
end-of-line. 



LINEPOS 

The function LINEPOS (f) is applicable if (f) is a previously opened text 
file. The function returns, as an integer, the number of characters read 
from or written to the text file (f) since the last line marker. This 
does not include the character in f^. 

The meaning of LINEPOS is altered if (f) is open to the I/O device 
"RS232". In the case where (f) is open for reading to RS232, LINEPOS 
returns the number of characters that are presently in the RS232 receiver 
circular buffer. In the case where (f) is open for writing to RS232, 
LINEPOS returns the number of characters that are in the RS232 transmit- 
ter circular buffer plus the number of characters contained in the trans- 
mitter hardware registers. See the discussion in Appendix C for further 
information. 



POSITION 

The function POSITION returns, as an integer, the index of the current 
component of the file(f) starting with 1. This component is the next to 
be accessed by read or write. The file(f) must have previously been 
opened. File(f) may not be a text file. If the buffer f^ is full, the 
result is the index of that component. 



lORESULT 

The function lORESULT, used in conjunction with the compiler directive 
$IOCHECK OFF$, allows input /output exceptions to be handled by the 
program . 

lORESULT is an extension to HP Standard Pascal and requires the compiler 
directive $EXTENSION 0N$ to be in effect. 
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lORESULT returns an integer that is the result code of the last in- 
put/output operation* The meaning of the integer returned is shown in 
Table 7-1- 



Table 7-1. lORESULT Definitions 



Integer 



Definition 



0 
1 
2 

3 
U 

5 
6 

7 
8 

9 
10 
11 
12 
13 
Ik 



No error 

End of file 

Invalid disc number 

File not found 

File already exists 

No disc space available 

No directory space available 

File linkage is corrupt 

Read/Write-Only device opened in wrong mode 

Non-textfile opened text-type device 

Two files opened the same disc file or device 

Illegal syntax reading integer or real 

Illegal value reading integer or real 

File is not open in proper mode 

111 formed file name 



The following result codes are returned only when reading from 
the I/O device "RS232". 



15 

16 
17 

18 
19 

20 



Timeout interval has elapsed without receiving 
character 

Circular buffer overflow; data has been lost 
Line break (i.e., continuous spacing) signal 
received 

Character framing error (i.e., stop bit was 0) 
Character overrun error (interrupts were not 
serviced fast enough) 

Character parity error 
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Chapter 8 

Implementation of HOST Pascal 



Introduction 

A practical knowledge of the implementation of HOST Pascal is useful for 
efficient programming. This chapter describes data allocation, memory 
configuration, data and stack management, HEAP management, and efficient 
programming. 

Data Allocation 

The HOST Pascal compiler converts source code into pseudo code instruc- 
tions and data definitions. The space reserved by the data definitions 
is used to represent variables. Type definitions are used only by the 
compiler and do not result in data allocation. 

The size of the data allocation is determined by the type of the variable 
or structured constant. A variable or structured constant of a PACKED 
t3rpe is given data allocation that optimizes the use of memory space. An 
unpacked data type is given an allocation that allows faster data access. 

This section describes the size in bits and words of the data allocation 
for a variable or structured constant of a particular type and the bound- 
ary alignment conventions for that allocation. 

Allocations for structured constants are identical to the allocations for 
variables of the same type as the structured constant. 



Allocation for Scalar Variables 

The allocations for variables of scalar, subrange, and pointer types is 
shown in Table 8-1. All allocations begin on word boundaries. 
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Table 8-1. Allocations for Scalar Variables 



Type 


Size 


Notes 


BOOLEAN 


1 word 


FALSE is represented by 0, 
TRUE is represented by 1. 


INTEGER 


2 words 


Bit 15 of the first word is the 
sign bit. 


Subrange of 
INTEGER 


1 or 2 
words 


Subranges contained in -32768. .3276? 
require 1 word to represent 
variables of that type. All other 
subranges require 2 words to 
represent variables of that type. 

Examples : 

Subrainge Allocat ion 

0. .8 1 word 
-32768.. 32767 1 word 
10. .UOOOO 2 words 
-70000. . -1 2 words 


Enumeration 


1 word 


The values are represented 
internally as 1-word integers in the 
range 0. . (cardinality of the 
eniimeration type - 1). 


Subrange of 
Enumeration 


1 word 


Represented by their eniomerated 
value. 


REAL 


2 words 


Floating point format. 


LONGREAL 


U words 


Floating point format. 


CHAR 


1 word 


The character is represented in the 
byte (the left byte contains 0). 


Pointer 


1 word 
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Allocation for Structured Variables 

The allocation for variables of ARRAY, RECORD, FILE, and SET types 
is shown in Table 8-2, All allocations begin on word boundaries • 



Table 8-2. Allocations for Structured Variables 



Type 


Size 


ARRAY 


The size of an array allocation is the sum of the 
allocations of its elements: 

(product of cardinalities * (allocation of one 
of index types) element) 

The elements are stored in row major order. 


RECORD 


The size of a record allocation is the sum of the 
allocations of the fixed part and, if any, the 
allocations of the tag field and the largest 
variant. 


FILE 


The FILE variable needs memory in two areas: 

a. Space for file variable. 

b. Space for the Device Control Block (DCB). 

If the file is a textfile, the variable allocation 
is 131 words. If the file is not a textfile, the 
allocation is 2 words + size of the file component 
type. Assignment of a buffer (DCB) area is made 
when the block in which the file is declared 
becomes active. The DCB area is taken from a group 
of buffer areas allocated when the program was 
executed. The size of a DCB is approximately kO 
words + (128 ^ b) where b can be 1, 2, U, 8, or I6. 
The value of b is determined by the value of the 
BUFFERS compiler option when the file is declared. 
Default value of BUFFERS is 1. 


SET 


The maximum number of elements possible in a set 
is U08O. The allocation for a set is (n + I6) DIV 
16, where n is the ordinal value of the largest 
element in the set, and the allocation is in words. 
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Allocation for Elements of Packed Structures 

Arrays, records, sets, and files may be packed by prefixing the type 
definition with *PACKED\ This indicates to the compiler that the 
non- structured elements of the type are to be allocated in a memory 
conserving format. In general, the following guidelines are used in 
the interest of data accessibility: 

a. Any item requiring a word or less of storage will not 
cross a word boundary, 

b. Any item requiring a word or more of storage will be 
aligned on a word boundary. 

The packed attribute of a structured type does not distribute to the 
structured elements of the type. For example, the elements of an 
array within a packed record are not packed. (The array may be 
packed, however, by prefixing the array definition with 'PACKED*.) 

PACKED ARRAY [1..6,1..3] of T, however , is equivalent to PACKED 
ARRAY [1..6] of PACKED ARRAY [1..3] of T. 



Table 8-3. Allocations for Elements of Packed Structures 



Type 


Allocation 


BOOLEAN 


Size: 

Alignment: 


1 bit 

Bit boundary 


INTEGER 


Size: 

Alignment: 


2 words 

Word boxindary 


Subrange of 
INTEGER 


Size: 


-32768 <= lower bound. .upper bound 
<= 32767 requires no more than 1 
word. If the high bound <= 32767 
and if the low bound >= 0, the 
packed subrange of integer will 
occupy the minimum number of bits 
required to represent the highest 
value of the subrange. For example: 

O..7 requires 3 bits, 
0..8 requires k bits, 
O..3I requires 5 bits, 
25.. 31 requires 5 bits, 
0.. 32767 requires 15 bits. 




Alignment: 


Bit boundary 
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Table 8-3. Allocations for Elements of Packed Structures (Cont'd) 



Enumeration 


Size: Minimum number of bits necessary 

to represent the value (cardinality 
of type - 1) 

Alignment: Bit boundary 


Subrange of 
Enumeration 


Size: Minimum number of bits necessary to 
represent the value (cardinality of 
subrange - 1) 

Alignment: Bit boxindary 


REAL 


Size: 2 words 
Alignment: Word boundary 


LONGREAL 


Size: U words 
Alignment: Word boundary 


CHAR 


Size: 1 byte (8 bits) 
Alignment: Bit boundary 


Pointer 


Size: 1 word 
Alignment: Word boundary 


Set 


Size: n bits, n <= l6 
Alignment: Bit boundary where n is the 

cardinality of the base type. 

Size: n bits, l6 < n <= Uo80 

The maximum number of elements 
possible in a set is UoBO. The 
allocation for a set is (n + l6) 
DIV l6, where n is the number of 
bits in the set. 

Alignment: Word boundary 
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Examples of Packed and Unpacked Structure Allocation 
Example 1: Unpacked structure allocation 
TYPE 

SUIT = (club, diamond, heart, spade); 

VAR 

r : RECORD 



a 


: INTEGER; 


b , 


: 1..13; 


c 


: SUIT; 


d 


. REAL; 


e 


: CHAR; 


f i 


: 'A'.-'Z'; 


S 


BOOLEAN; 


h 


' LONGREAL; 


i 


, SET OF SUIT; 


j 


ARRAY [SUIT] 


CASE t : BOOLEAN 



true: (k,l,m : CHAR); 
false: (n : INTEGER); 

END; 
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Variable r is allocated as follows: 

15 ll» 13 12 11 10 9 8 7 6 5 U 3 2 1 0 



T — I — I — I — I — I — I — I — I — r 

a 



T 



T 



T 



H — I — I — I — h 



I ^1 I I I I I I I I 
I ^ I I I I I I I I 



H — \ — I — I — h 



i — I — I — I — I — I I I I I I I I I I 



H — I — I — I — I I I I I I I I I I I 



i — I — I — I — I — I I I I I I I I I I 



i — \ — \ — \ — \ — I I I I I I I I I I 



I I I — I — I — I I I I I I I I I I 



I I I I 



-M- 



[club 



[diamond 



[heart] 



I I I I 

[ spade J 



I I I I 



,.l I . I I 

(if t IS true) 



n (if t is false) 



,. l I . I I 

(if t IS true) 



H — \ — I — I — f- 



I I I I 



allocated but unused if t is false, m if t is true 

I I I I I I I I L_l I I I I i 



Figure 8-1. Unpacked Structure Allocation 
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Exeunple 2: This example shows a packed record allocation. Note, 
however, that field j is not packed. 

TYPE 

SUIT = (club, dieunond, heart, spade); 

VAR 

r : PACKED RECORD 



a 




INTEGER; 


b 




1..13; 


c 




SUIT; 


d 


• 


REAL; 


e 




CHAR; 


f 




'A'..'Z'; 


g 




BOOLEAN; 


h 




LONGREAL; 


i 




SET OF SUIT; 


j 


• 


ARRAY [SUIT] 



CASE t : BOOLEAN OF 

true: (k,l,m : CHAR); 
false: (n : INTEGER); 

END; 
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Variable r is allocated as follows: 

15 lU 13 12 11 10 9 8 7 6 5 U 3 2 1 0 



T 



1 — I — I — I — I — I — I — r 



T — I — I — r 



i — h 



I I I M I I I I 

allocated but unused 



i — h 



I I I I I I I I I 



I I I I 



I I I ^1 I I 
I I I ^ I I 



■\ — \—i — h 



I I I I I I I 

allocated but unused 



I .1 I 

J [club 



nWa^ond 



I .1 I I 

J [heart] 



I I I I I I I 

J [spade] 



1— M" 



■l-M- 



(if 



t is true) 



unused 



(if t IS true) 
n (if t is false) f- 



1 I I 

(if t is 
I I I I 



true) 



m 



allocated but unused if t is true 
J I i i i I i_Ji I I I i L 



Figure 8-2. Packed Record Allocation With Unpacked Array 



Note that the elements of array j are not packed, but the array as a 
whole is treated as a field of the packed record. 
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Example 3: This exaunple shows 
field j as a packed array. 



a packed record allocation, including 



TYPE 



SUIT = (club, diamond, heart, spade); 



VAR 



PACKED RECORD 



a 


: INTEGER; 


b 


: 1. .13; 


c 


: SUIT; 


d 


: REAL; 


e 


: CHAR; 


f 


: 'A'.-'Z'; 


g ' 


: BOOLEAN; 


h 


LONGREAL; 


i 


: SET OF SUIT; 


j • 


: PACKED ARRAY 


CASE t : BOOLEAN 



1..13; 



true: 
false: 



(k,l,m 
(n 



CHAR) ; 
INTEGER) ; 



END; 
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Variable r is allocated as follows: 

15 lU 13 12 11 10 9 8 7 6 5 1» 3 2 1 0 



T — I — \ — r 



T — I — I — r 



1 — I — I — I — r 



1 
2 
3 
u 

5 
6 
7 
8 

9 
10 

11 

12 
13 
lU 

15 



-\ — h 



I I I I I I I I I 

allocated but unused 



■t— h 



I I I i I i I I I 



^ — \ — I — I- 



t-f- 



I I I ^1 I I 
I I I ^ 1 I I 



i — I — I — h 



i — [- 



■\ — I I I I I I I i I 

allocated but unused 



j [club 



— 

diamond] 



. 1 I I 

J [heart ] 



j [spade] 



t 



if t is true) 



unused 



■\ — \ — h-f- 



I I I I I 

m (if t IS true) 

I I I I I 



1 (if t IS true) 
-j- n (if t is false) -j j- 



allocated but unused if t is true 
I i I I i i i I I I I i I I 



Figure 8-3. Packed Record Allocation With Packed Array 



Memory Allocation 

The memory layout employed in the HOST Pascal system is composed of a DCB 
area, an upper STACK/HEAP area, and a lower STACK/HEAP area if the Memory 
Expansion Module is present in the logic system. 

The DCB area varies in size, based on the number of files declared in the 
program and the value of the BUFFERS option at the time of file declara- 
tion. DCB area is allocated when a program is r\m and does not change in 
size during program execution. 

One DCB is pre-allocated at the beginning of run-time for each file vari- 
able declared in the program. It is possible, through recursive calls to 
procedures or functions that contain local file variables, to exceed the 
number of DCB*s that have been preallocated. In this case, a run-time 
error, "UNABLE TO ALLOCATE FILE BUFFER", will occur. 
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The upper stack/heap area accommodates 25k bytes of memory minus the area 
allocated to DCB. The lower stack/heap area accommodates an additional 
32k bytes of memory. 

The stack contains p_code and static variables; the heap contains dynamic 
variables allocated with the standard procedure NEW. Implementation of 
the stack begins with the high address and increases in size toward the 
low address. The heap is implemented at the low address and increases in 
size toward the high address. An overlapping of stack atnd heap areas is 
possible and causes an error, "OUT OF MEMORY. CAN'T EXPAND STACK OR 
HEAP." 

Each activation of a procedure or function creates a new space for the 
static data area of the procedure or function. The procedure or function 
code is never duplicated. 

I/O Error Handling 

I/O errors cause termination of program execution. Processing of I/O er- 
rors can be implemented by using the compiler option lOCHECK and the 
standard function lORESULT. 

lORESULT is am extension to the standard Pascal, and its use is enabled 
by the EXTENSIONS compiler option. lOCHECK OFF disables the generation 
of code that checks for I/O errors. lORESULT returns an integer that is 
the result code from the previous I/O operation. The value returned by 
lORESULT is defined in Table 7-1- 

$IOCHECK OFF$ 
RESET(f); 
IF lORESULT <> 0 
THEN 

BEGIN {exception handling} 



END; 
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Chapter 9 

Using HOST Pascal 



The Source File 

The Pascal compiler takes as input a prograim source file created with the 
6UOOO Editor function. The basic form of a program source file is as 
follows : 

"HOST" 

PROGRAM Name (parameters); 
{Declarations} 



BEGIN {program} 



END. {program} 

The first line of the source file must be the special compiler directive 
"HOST". Then follow the declaration and statement sections of the 
program. 



Compiling the Source File 

After the source file has been edited, and before the program can be ex- 
ecuted, the source file must be compiled. Pressing the soft key labeled 
Ccompile^i, and adding the source file name, causes translation of the 
source file into an absolute file. The absolute file contains a pseudo- 
machine code version of the source file. The source file name is given 
also to the absolute file. After the "compile" command has been entered, 
some choices must be made by the operator. The "compile" commauid syntax 
is shown in Figure 9'"1* 
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COMPILE 
COMMAND" 



-»> (^compile) ~ 



SOURCE 
FILE 



^LISTFILe) -^ ^ DISPLAY^ 



FILE 



PRINTER 



> 



^^- ^ null"^ 



OPTONS 



NOLIST 



> 




EXPAND 



^H ^NOCODE^ ^ ^^^^ 



XREF 



Source File 



Figure 9-1. Compile Command Syntax 

Command Parameters 

The name of the source file to be compiled. The syntax 
for the source file name is shown in Figure 9-2 . 



FILE- 



FILE NAME 



USERID 




where : 

file name 



Figure 9-2. Source File Narne Syntax 



is comprised of 1 to 9 alphanumeric characters 
beginning with an upper case alphabetic character. 
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userid is comprised of 1 to 6 alphanumeric characters 

beginning with an upper case alphabetic character. If 
userid is omitted, the present userid will be the 
default value. 

disc # represents the logical unit number of the system disc. 

Only decimal numbers are allowed. If disc # is omit- 
ted, all discs will be searched for the file. 

The absolute file will be written onto the same disc 
from which the source file was taken. If another ab- 
solute file has the same name as the current absolute 
file, the old file will be overwritten by the current 
file. 

The pseudo machine code will not be written into the 
absolute file if errors are detected during the com- 
piling of the source file, or if the nocode option is 
specified, or if any CODE OFF directives are encoun- 
tered in the source file. 



Listfile 



Options 



If the listfile keyword is not used, then the default is 
the predefined listfile for the present userid. If no 
predefined listfile exists, a null listfile is the 
default. If the listfile keyword is used, one of the 
following must also be specified: 

<FILE> 
display 
printer 
null 

The syntax for <FILE> is the same as for source file. 
The tyrpe of the listing file is "listing". If no disc # 
was specified, then the listing file will be written to 
the disc from which the source file was taken. 

If the options keyword is used, then one or more of the 
following may be specified: 

list 

nolist 

expand 

nocode 

xref 



list List specifies a complete source code listing with error 

messages, 

nolist Nolist specifies that only error messages will be listed. 
All LIST directives in the source code are ignored. 

expand The expand option has no effect. 
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nocode specifies that no pseudo code file will be written. CODE 
directives in the source file will be ignored. 

xref specifies a cross reference listing of the source file. 

All XREF directives in the source file are ignored. 

Running HOST Pascal Programs 

The "run" command causes execution of the pseudo -machine code in the ab- 
solute file. 

When a HOST Pascal program is executed, a file name may be associated 
with each program parameter. A program parameter is a file variable that 
was listed in the program heading of the Pascal program. The file name 
is the name of a disc file or an I/O device. 

File names for the standard files INPUT and OUTPUT may be specified in 
the context of the run command. For other program parameters, the system 
prompts the user for a file name for each additional program paratmeter. 
The run command syntax is shown in Figure 9"3. 



RUN 
COMMAND - 



KEY- 
BOARD 



> 



FILE 
SPEC 



rs232 



DISPLAY 



DISPLAY1 



PRINTER 



NULL 



rs232 ) — ^ 



Figure 9-3. Run Command Syntax 

Run Command Parameters 

<file> the name of the absolute file containing pseudo -machine 
code. The syntax for <file> is: <file_name> 
[ :<userid>] [:<disc #>]. 

input if the input ke3Word is not used, then the file name as- 
sociated with INPUT is keyboard . 

if the input keyword is used, one of the following must be 
given: 

keyboard 
<f ile spec> 
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the syntax for <file spec> is: 

<file narae>[:<userid>] [rdisc #][:<file type>] 

where : 

file name is 1 to 9 alphanumeric characters beginning 
with an upper case alphabetic character. 

userid is 1 to 6 alphanumeric characters beginning 
with an upper case alphabetic character. 

disc # is a decimal number. 

file type is source , relocatable, absolute, link_cora, 
emul_com, prom, asmb_sym, link_sym, comp_sym, trace, 
data, asym_db, or comp_db. The default file type is 
source. 

output If the kejrword output is not used, then the default file 
name for OUTPUT is the default listing file. If no default 
listing file has been specified for the present userid, 
then the default listing file is null. 

If the keyword output is used, then one of the following 
must be given: 

<file spec> 

display 

displayl 

printer 

rs232 

null 

The syntax for <file spec> is the same as for input. If 
the file type is omitted in the file spec for OUTPUT, then 
the default type is listing. 
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Additional Program Parameters 



If the program about to be executed has program parameters other than 
INPUT or OUTPUT, then a prompt will be issued for each of the parameters 
in the order in which they were listed in the program heading. The 
prompt looks like the following example: 

Enter the file name for <identif ier>. 

<identifier> is the variable identifier from the Pascal program. One may 
then enter one of the following: 

<file spec> 

display 

di splay 1 

keyboard 

printer 

rs232 

null 

The syntax for <file spec> is the same as shown with the input kesrword. 
If file type is not specified, then the default file type is source, if 
the file is a text file, or data, for a non-text file. 

If no entry is made following the prompt, the system treats the file as 
if it were not a program parameter. 
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Compile-Time and Run-Time Error Messages 
Compile-Time Error Messages 

1: Error in simple type 

2: Identifiar expected 

3: 'PROGRAM* expected 

U: expected 

5 : * : ' expected 

6: Illegal symbol 

7: Error in parameter list 

8: 'OF* expected 

9: *(' expected 

10: Error in type 
11: expected 
12: expected 

13: END expected 
lU: expected 

15: Integer expected 

l6: '=* expected 

17: 'BEGIN' expected 

18: Error in declaration part 

19: Error in field list 

20: '. ' expected 

21: '*' expected 

22: LABEL expected 

23: CONST, TYPE, VAR, BEGIN/FUNCTION or PROCEDURE expected 

2U: EOF expected 

25: Statement begin symbol expected 

26: PROCEDURE or FUNCTION expected 

27: or OTHERWISE expected 

28: '(' or '[' expected 

29: String expected 

30: Type name expected 

31: '..' expected 

32: Error in variant label 

50: Error in constant 

51 : ' : = ' expected 

52: 'THEN' expected 

53: 'UNTIL' expected 

5U: 'DO' expected 

55: 'TO/DOWNTO' expected 

58: Error in factor 

59: Error in variable 

101: Identifier declared twice 

102: Low bound exceeds high boirnd 

103: Identifier is not of appropriate class 

lOk: Identifier not declared 

105: Sign not allowed 

106: Number expected 
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107: Incompatible subrange types 
108: File not allowed here 
109: Type must not be REAL 

110: Tag field type must be ordinal or subrange 
111: Incompatible with tag field type 
112: Index type must not be REAL 
113: Index type must be ordinal or subrange 
Ilk: Base tjrpe must not be REAL 
115: Base t3^e must be ordinal or subrange 
116: Error in type of standard procedure parajneter 
117: Unsatisfied forward reference 
118: Forward reference type identifier in variable 
declaration 

119: Forward declared: repeated parameter list not identical 
120: Function result tjrpe must not be/contain file 
121: File value parameter not allowed 

122: Forward declared function; repeated result type not 
identical 

123: Missing result type in fxinction declaration 
125: Error in type of standard procedure/function parameter 
126: Number of parameters does not agree with declaration 
127: Illegal parameter substitution 

128: Result type of parameter function does not agree 

with declaration 
129: Type conflict of operajids 
130 : Expression is not of set type 
131 : Tests on equality allowed only 
132: Strict inclusion not allowed 
133: File comparison not allowed 
13^: Illegal type of operand (s) 
135: Type of operand must be boolean 
136: Set element type must be ordinal or subrange 
137: Set element types not compatible 
138: Type of variable is not array 
139: Index type is not compatible with declaration 
ikO: Type of variable is not record 
lUl: Type of variable must be file or pointer 
1^42: Illegal parameter substitution 
IU3: Illegal type of loop control variable 
ikk: Illegal type of expression 
1^5: Type conflict 

IU6: Assignment of files not allowed 

1^47: Label type incompatible with selecting expression 

ikQ: Subrange bounds must be ordinal 

IU9: Index type must not be integer 

150 : Assignment to standard function is not allowed 

151 : Assignment to formal function is not allowed 

152: No such field in this record 

153: Type error in read 

15^: Actual parameter must be a variable 

155: Control variable must be declared locally 

156: Multidefined case label 

158: Missing corresponding variant declaration 
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159* Tag field must be ordinal 

160 : Previous declaration was not forward 

161 : Again forward declared 

162: Parameter size must be constant 

163: Missing variant in declaration 

I6U: Substitution of standard proc/f\mc not allowed 

165: Mult ide fined label 

166: Multideclared label 

167: Undeclared label 

168: Undefined label 

169: Error in base set 

170 : Value parameter expected 

171 : Standard file was redeclared 

172: Undeclared external file 

17^*: Pascal procedure or function expected 

175* Missing file INPUT in program heading 

176: Missing file OUTPUT in program heading 

177: Assignment to function identifier not allowed here 

178: Multidefined record variant 

179- Parameter list of actual proc/func does not match formal 

declaration 
180 : Control variable must not be formal 
181 : Constaint part of address out of range 
182 : Actual VAR parameter must not be packed 
183: Assignment to field in non-variable record 
18^4: 'STRING' not allowed in this context 
185: Variant may not contain file 
186: Expression must be compatible with INTEGER 
187: Illegal assignment to FOR control variable 
188 Value of preceding function not assigned. 
201: Error in real constaint: digit expected 
202: String constant must not exceed source line 
203 : Integer constant exceeds rajige 
205: Zero string not allowed 

206: Integer part of real constant exceeds range 

207: Compiler option must not exceed source line 

208: Illegal character in this context 

209: Bad data for HEX, OCTAL, or BINARY 

230 : Structured tjrpe identifier expected 

250 : Too many nested scopes of identifiers 

251 : Too many nested procedures and/or functions 

252: Too many forward references or procedure entries 

253: Procedure too long 

255: Too many errors on this source line 

256: Too many external references 

257: Too many externals 

260 : Too many exit labels 

261 : Too many nested INCLUDES 

262: Can't open INCLUDE file 

263: Too matny elements in array 

26U: Size of structure may not exceed I6383 words 
265: Procedure's data area exceeds size limit 
266: Case label must be between -32768 and 32767 
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267: Total segment code exceeds 32767 bytes 

268: More than I6 prograira parameters 

269: Sets are restricted to ordinal range 0. .14079 

270 : Number of procedures and structured constants exceeds 255 

271 : Number of SEGMENTS exceeds 15 

300: Division by zero 

301: No case provided for this value 

302: Index expression out of bounds 

303: Value to be assigned is out of bounds 

30^*: Element expression out of range 

305: Illegal operator in constant expression 

306: Constant expression causes integer overflow 

307: Illegal operand type in constant expression 

308: Illegal fxmction in constaoit expression 

309: Set element not in range of set base type 

310: Structured constant not allowed here 

311: Too many constant array elements specified 

312: Too few constant array elements specified 

313: Constant value inaccessible due to $NOSAVE$ 

Illegal to select elements in constant expression 

315: Constant NIL dereferenced 

316: Constant record element respecified 

317: Variant field specified before tag field 

318: Field doesn't belong to previously selected variant 

319: All fields of record constant have not been specified 

320: Variable which is program parameter must be file 

321: String literal is too long 

322: a MOD b, b <= 0 

397: Error in compiler, contact HP representative 

398: Implementation restriction 

U02: End of source before end of compilation 

U03: Sjnnbol table overflow; delete symbols; parsing stopped 

kOk: Semantic stack overflow; break up program; parsing stopped 

1+09: Label may not have more than four digits 

Ull: Constant expression expected 

U13: Assignment to constant 

UlU: More than 255 subroutines 

1*55: Language extensions used in extensions off mode 

5OO: Warning: illegal compiler option; option ignored 

502: Warning: Option ignored. Specify before PROGRAM, 

503: Warning: Source line exceeds allowed length 

50U: Warning: non-standard feature used 

508: Warning: wide range of CASE labels generates large amounts 
of code 

509: Warning: illegal value for compiler option 

510 : Warning: $SEGMENT$ not specified before FORWARD. Option 
ignored. 
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Run-Tlme Error Messages 

A diagnostic message is displayed on the 6UOOO Logic Development station 
screen when a run-time error occurs. The information in the message can 
be used, together with the program listing, to locate and correct the of- 
fending area of the program. 

Following is an example program that generates a run -time error* 
Included, also, is a brief explanation of the error locating procedure. 



Example: 

FILE :TNILREF : PTEST: 0 



HP 6UOOO HOST PASCAL 



1 


1 


1:D 


1 


"HOST" 


2 


1 


1:D 


1 


PROGRAM TNILREF; 


3 


1 


1:D 


1 


TYPE 


U 


1 


1:D 


1 


PACIO = PACKED ARRAY 


5 


1 


1:D 


1 


PACPTR = "PACIO; 


6 


1 


1:D 


1 


VAR 


7 


1 


1:D 


1 


PTR: PACPTR; 


8 


1 


1:D 


2 


I: INTEGER; 


9 


1 


1:C 


0 


BEGIN 


10 


1 


1:C 


0 


PTR := NIL; 


11 


1 


1:C 


3 


FOR I := 2 TO 10 DO 


12 


1 


1:C 


2U 


PTR"[I] := ' '; 


13 


1 


1:C 


68 


END. 



End of compilation, nximber of errors= 



Legend 

The first column indicates the source file line numbers. 

The second column indicates the segment number. In this case segment 1 
is listed. 

The third column indicates the procedure number, in this case procedure 
number 1 is shown, D designates the declaration part; C designates the 
code (or executable) part of block. 

The fourth column indicates offset (in words) of the memory location of 
the variable I in the block local datum area. (Line 8 of the file shows 
2 words of offset.) 

The fourth column also indicates P-code offset (in bytes) of code for the 
statement that follows. (Line 12 of the file shows 33 bytes of offset.) 

The example program TNILREF contains a reference to a pointer variable 
that contains the value NIL. When executed, TNILREF will produce the 
following error message: 
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Error 11 in program TNILREFrPTEST, seg. #1, proc. #1, p-code offset = 37 

"NIL POINTER REFERENCE" 

The error occurred in segment nvimber 1, procedure number 1 with the p- 
machine's instruction pointer equal to 37. Examining the listing allows 
us to determine that procedure number 1 is the main program body, and 
that the error occurred in line number 12. 

The code generated by line 12 begins at offset 2U, and the code generated 
by line 13 begins at offset 68. By deduction, then, offset 37 occurs in 
line 12. 

Following is a listing of run-time error messages: 
VALUE OUT OF RANGE 

STANDARD PROCEDURE/FUNCTION PARAMETER OUT OF RANGE 

SET ELEMENT OUTSIDE OF RECEIVING SET'S RANGE 

OUT OF MEMORY. CAN'T EXPAND STACK OR HEAP 

INTEGER OVERFLOW 

DIVISION BY 0 

A MOD B OPERATION, B < 0 

NIL POINTER REFERENCE 

NO LABEL SPECIFIED FOR CASE EXPRESSION VALUE 
FLOATING POINT OVERFLOW 

INVALID OPERAND FOR FLOATING POINT EXPRESSION 
FLOATING POINT DIVISION BY 0 

STRING TOO LONG FOR RECEIVING STRING VARIABLE 

INDEX INTO STRING OUTSIDE OF CURRENT LENGTH 

ATTEMPT TO ACCESS PROTECTED MEMORY 

ILLEGAL DATA FOR HEX, OCTAL, OR BINARY 

UNABLE TO ALLOCATE FILE BUFFER 

CORRUPT DATA IN FILE VARIABLE 

PROCEDURE HALT EXECUTED 

ILLEGAL OPERATION ON "rs232" 

<FILE NAME> TIMEOUT INTERVAL ELAPSED 

<FILE NAME> RECEIVE BUFFER OVERFLOW 

<FILE NAME> BREAK RECEIVED 

<FILE NAME> CHARACTER FRAMING ERROR 

<FILE NAME> CHARACTER OVERRUN ERROR 

<FILE NAME> CHARACTER PARITY ERROR 

<FILE NAME> READ/WRITE -ONLY DEVICE OPENED IN WRONG MODE 

<FILE NAME> DEVICE CANNOT BE ASSIGNED TO NON-TEXT FILE 

<FILE NAME> FILE NAME OPENED BY TWO FILES 

<FILE NAME> ILLEGAL SYNTAX FOR READ VARIABLE 

<FILE NAME> ILLEGAL VALUE FOR READ OPERATION 

FILE NOT OPEN IN PROPER MODE 

ILL FORMED FILE NAME 

END OF FILE FILE = <FILE NAME> 

ILLEGAL DISC FILE = <FILE NAME> 

FILE NOT FOUND FILE = <FILE NAME> 

DISC FULL FILE = <FILE NAME> 

DIRECTORY FULL FILE = <FILE NAME> 

INVALID OPERATION. P-CODE IS CORRUPT 
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The following is a listing of HOST Pascal statements, and the examples in 
which the statements are shown. 

Assignment: all examples; 
Case: 11,1^,15.25,27; 
Enumerated Type: 25; 

For: 5»6, 8, 10, 13,11*, 17,18, 19, 20, 21, 2U, 26, 27,28; 

Function: 23, 2U; 

Goto Label: 12,13; 

If: 8, 9, 10, 12, 13, lU, 16, 20, 21, 26, 27; 

Procedure : 19 , 20 , 21 , 22 , 23 , 2U , 27 ; 

Read or Readln: all examples; 

Record: 29; 

Repeat: 3,7,9,15,16,26,27; 
Reset(f): 27; 
Rewrite(f): 27; 
While: U,7,12; 
While Not: 27; 
With: 29; 

Write or Writeln: all exaonples; 
Write parameters: 18,19,22, 23, 2U; 



Sample Programs 

If any of the sample programs are to be attempted, the program must first 
have the directive "HOST" or compilation will not be possible. 

1. Adding two given integers and printing the results. 

"HOST" 

PROGRAM REGl ( INPUT, OUTPUT ) ; 
VAR A,B,C : INTEGER; 

BEGIN 

READ(A,B); 
C := A + B; 
WRITELN (C) 

END. 
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2. Calculate automobile operating cost. 
"HOST" 

PROGRAM REG2 ( INPUT, OUTPUT ) ; 
CONST ROADTAX =50.0 

VAR GARAGEBILL, INSURANCE, TOTAL ; REAL; 
BEGIN 

READ ( GARAGEBILL , INSURANCE ) ; 

TOTAL := GARAGEBILL + INSURANCE + ROADTAX; 

WRITELN ('TOTAL COST IS' TOTAL) 

END. 



3. Repeat two statements imtil true. 

"HOST" 

PROGRAM REG3 ( INPUT, OUTPUT ) ; 
VAR SUM, NUMBER : INTEGER; 

BEGIN 

SUM := 0; 
REPEAT 

READ (NUMBER); 

SUM := SUM + NUMBER 
UNTIL NUMBER = 0; 
WRITELN ('THE TOTAL IS', SUM) 

END. 



U. Calculate the largest power of a number that is less than or equal to 
another number. 

"HOST" 

PROGRAM REGU ( INPUT , OUTPUT ) ; 
VAR A, B, PRODUCT : REAL; 

POWER : INTEGER; 

BEGIN 

READ (A,B); 

POWER := 0; 

PRODUCT := B; 

WHILE PRODUCT <= A DO 

BEGIN 

POWER := POWER + 1; 
PRODUCT := PRODUCT * B; 

END; 

WRITELN ('LARGEST POWER OF' ,B, '<' .A, 'IS' .POWER) 

END. 
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5. Form the average of H numbers. 
"HOST" 

PROGRAM REG5 (INPUT, OUTPUT ) ; 
VAR I,N : INTEGER; 

AVERAGE, SUM, NUMBER : REAL; 

BEGIN 

READ (N); 
SUM := 0; 

FOR I BECOMES 1 TO N DO 
BEGIN 

READ (NUMBER); 

SUM := SUM + NUMBER 

END; 

AVERAGE := SUM/N; 

WRITELN ('THE AVERAGE IS", AVERAGE) 

END. 



6. Form the average of each of M groups of numbers. 
"HOST" 

PROGRAM REG6 ( INPUT, OUTPUT ) ; 
VAR I,J,M,N : INTEGER; 

AVERAGE, SUM, NUMBER : REAL; 

BEGIN 

READ (M); 

FOR J := 1 TO M DO 
BEGIN 

READ (N); 
SUM := 0; 

FOR I := 1 TO N DO 
BEGIN 

READ (NUMBER); 

SUM := SUM + NUMBER 

END; 

AVERAGE := SUM/N; 

WRITELN ('THE AVERAGE IS', AVERAGE) 

END 

END. 
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7. Find HCF of two numbers. 

"HOST" 

PROGRAM REG7 ( INPUT, OUTPUT ) ; 

VAR A,B : INTEGER; 

BEGIN 

READ (A,B); 

REPEAT 

WHILE A > B DO 
A := A - B; 
WHILE B > A DO 
B := B - A; 

UNTIL A = B; 

WRITELN ('HCF IS', A) 

END. 



8. Find the maximtun of N numbers. 
"HOST" 

PROGRAM REGS ( INPUT, OUTPUT ) ; 

VAR N, MAXNO, NUMBER, I : INTEGER; 

BEGIN 

READ (N); 

READ (MAXNO); 

FOR I := 1 TO N-1 DO 

BEGIN 

READ (NUMBER); 
IF NUMBER > MAXNO 

THEN MAXNO := NUMBER 

END; 

WRITELN ('THE MAXIMUM NO. IS', MAXNO) 

END. 



9. Count the positive and negative numbers. 
"HOST" 

PROGRAM REG9 ( INPUT , OUTPUT ) ; 

VAR POSCOUNT, NEGCOUNT : INTEGER; 

NUMBER : REAL; 

BEGIN 

POSCOUNT := 0; 
NEGCOUNT := 0: 
REPEAT 

READ (NUMBER); 
IF NUMBER > 0 

THEN POSCOUNT := POSCOUNT + 1 
ELSE NEGCOUNT := NEGCOUNT + 1 
UNTIL NUMBER = 0 [LAST NUMBER 0] ; 

WRITELN ('THERE WERE', POSCOUNT,' POSITIVE NUMBERS.'); 
WRITELN ('THERE WERE', NEGCOUNT,' NEGATIVE NUMBERS.'); 

END. 
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10. Form separate totals of positive aind negative nvun'bers, and count the 
number of zeros. 

"HOST" 

PROGRAM REGIO ( INPUT, OUTPUT ) ; 

VAR I, N, NUMBER, POSITIVESUM, NEGATIVESUM, COUNT : INTEGER; 
BEGIN 

READ (N); 
POSITIVESUM := 0; 
NEGATIVESUM := 0; 
COUNT := 0; 
FOR I := 1 TO N DO 
BEGIN 

READ (NUMBER); 
IF NUMBER = 0 

THEN COUNT := COUNT + 1 
ELSE IF NUMBER > 0 

THEN POSITIVESUM := POSITIVESUM + NUMBER 
ELSE NEGATIVESUM := NEGATIVESUM + NUMBER 

END; 

WRITELN ('TOTAL OF POSITIVE NUMBERS IS', POSITIVESUM); 
WRITELN ('TOTAL OF NEGATIVE NUMBERS IS', NEGATIVESUM); 
WRITELN ('AND THE NUMBER OF ZEROS IS', COUNT); 

END. 



11. Read number, print day of week. 

"HOST" 

PROGRAM REGll ( INPUT, OUTPUT ) ; 
VAR DAYNO : INTEGER; 
BEGIN 

READ (DAYNO); 
CASE DAYNO OF 

1: WRITELN ('MONDAY'); 

2: WRITELN ('TUESDAY'); 

3: WRITELN ('WEDNESDAY'); 

U: WRITELN ('THURSDAY'); 

5: WRITELN ('FRIDAY'); 

6: WRITELN ('SATURDAY'); 

7: WRITELN ('SUNDAY'); 
END {CASE} 

END. 
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12. Add numbers iintil number is -1. 

"HOST" 

PROGRAM REG12 ( INPUT, OUTPUT ) ; 
LABEL 123; 

VAR SUM, NUMBER : INTEGER; 
BEGIN 

SUM := 0; 
WHILE TRUE DO 
BEGIN 

READ (NUMBER); 
IF NUMBER = -1 

THEN GOTO 123; 

SUM := SUM + NUMBER 

END; 

123: {JUMP TO THIS POINT WHEN -1 IS READ.} 
WRITELN ('THE SUM IS', SUM) 

END. 



13* Form the average of each of M groups of niunbers, stopping if a nega- 
tive number is encountered. 

"HOST" 

PROGRAM REG13 ( INPUT, OUTPUT ) ; 
LABEL 33; 

VAR I,J,M,N : INTEGER; 

AVERAGE, SUM, NUMBER : REAL; 

BEGIN 

READ (M); 

FOR J := 1 TO M DO 
BEGIN 

READ (N); 
SUM := 0; 

FOR I := 1 TO N DO 
BEGIN 

READ (NUMBER); 
IF NUMBER < 0 

THEN GOTO 33; 

SUM := SUM + NUMBER 

END; 

SUM := SUM/N; 

WRITELN ('AVERAGE IS', AVERAGE) 

END; 

33: (JUMP TO THIS POINT IF NUMBER IS NEGATIVE) 

END. 
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lU. lax calculation. 
"HOST" 

PROGRAM REGlU ( INPUT, OUTPUT ) ; 
CONST ALLOWANCE = I5O; 
RATE = 0.35; 

VAR TAX, INCOME, EXPENSES, ALLOW, CHARITYLEVY : REAL; 

I, N, DEPENDENTS, EMPLTYPE : INTEGER; 

BEGIN 

READ (N); 

FOR I := 1 TO N DO 
BEGIN 

READ (INCOME, EXPENSES, DEPENDENTS, EMPLTYPE); 
CASE EMPLTYPE OF 

1: CHARITYLEVY := 5; 

2: CHARITYLEVY := 2; 

3: CHARITYLEVY := 1 

END; 

EXPENSES := EXPENSES + CHARITYLEVY: 

ALLOW := ALLOWANCE*DEPENDENTS+EXPENSES; 

IF INCOME > ALLOW 

THEN TAX := (INCOME - ALLOW) * RATE 

ELSE TAX := 0; 
WRITELN ('TAX FOR EMPLOYEE', I,' IS', TAX) 

END. 



15. Program to act as a hand calculator. 

"HOST" 

PROGRAM REGI5 (INPUT, OUTPUT); 
VAR OPERATOR : CHAR; 

ANSWER, NEWNO : REAL; 

BEGIN 

ANSWER := 0; 
OPERATOR := +; 
REPEAT 

READ (NEWNO); 
READ (OPERATOR); 
CASE OPERATOR OF 

'+' := ANSWER + NEWNO; 
'-' := ANSWER - NEWNO; 
'*' := ANSWER * NEWNO; 
'/' := ANSWER / NEWNO 

END; 

UNTIL OPERATOR = '='; 
WRITELN ('ANSWER IS', ANSWER) 

END. 
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16. Print all numbers with same sign as first nvunber. 
"HOST" 

PROGRAM REGI6 (INPUT, OUTPUT); 
VAR NUMBER : REAL; 

FIRSTSIGN : BOOLEAN; 

BEGIN 

READ (NUMBER); 
WRITELN (NUMBER); 
FIRSTSIGN := NUMBER >= 0; 
REPEAT 

READ (NUMBER); 

IF FIRSTSIGN = (NUMBER >= 0) 
THEN WRITELN (NUMBER) 
UNTIL NUMBER = 0 

END. 



17. Read lines of k CHAR name and number output each line in other 
order. 

"HOST" 

PROGRAM REGIT ( INPUT, OUTPUT ) ; 
VAR I, N, NUMBER : INTEGER; 
A,B,C,D : CHAR; 

BEGIN 

READLN (N); 

FOR I := 1 TO N DO 

BEGIN 

READ (A,B,C,D); 
READLN (NUMBER); 
WRITELN (NUMBER, A, B,C,D) 

END; 

END. 



18. Tabulate Centigrade integer temperatures from 0 to 99 degrees 
against the Fahrenheit equivalent to the nearest 0.1 degree. 

"HOST" 

PROGRAM REGIS ( INPUT, OUTPUT ) ; 
CONST CONVERSION = 1.8; 

OFFSET = 32.0; 
VAR CENTEMP : INTEGER; 

FAHRTEMP : REAL; 
BEGIN 

WRITELN ('CENTIGRADE FAHRENHEIT'); 

FOR CENTEMP := 0 TO 99 DO 

BEGIN 

FAHRTEMP := CENTEMP * CONVERSION + OFFSET; 
WRITELN (CENTEMP:2' ' :7,FAHRTEMP:7:1) 

END; 

END. 
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19* Add two nvunbers and print neatly. 
"HOST" 

PROGRAM REGI9 (INPUT, OUTPUT); 
VAR NUMl, NUM2, TOTAL : REAL; 
PROCEDURE DRAWLINE; 

CONST LENGTH = 10; 

VAR I : INTEGER; 

BEGIN 

FOR I := 1 TO LENGTH DO 
WRITE ('-'); 
WRITELN 

END; 

BEGIN 

READ (NUMl, NUM2); 
WRITELN (NUMl: 10: 3); 
WRITELN (NUM2:10:3); 
DRAWLINE 

TOTAL := NUMl + NUM2; 
WRITELN (TOTAL: 10; 3); 
DRAWLINE 

END. 



20. Draw histogram as lines of appropriate length for the values read. 
"HOST" 

PROGRAM REG20 ( INPUT, OUTPUT ) ; 
VAR X,Y,N : INTEGER; 
NUMBER : REAL; 

PROCEDURE DRAWALINE (LENGTH : INTEGER); 
VAR I : INTEGER; 
BEGIN 

FOR I := 1 TO LENGTH DO 
WRITE ('-'); 
WRITELN 

END; 
BEGIN 

READ (N); 

FOR X := 1 TO N DO 
BEGIN 

READ (NUMBER); 

Y := ROUND (NUMBER); 

IF Y < 0 

THEN DRAWALINE (0) 
ELSE IF Y > 100 

THEN DRAWALINE (100) 
ELSE DRAWALINE (Y) 

END 

END. 
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21. Order each of N data pairs. 
"HOST" 

PROGRAM REG21 ( INPUT, OUTPUT ) ; 
VAR I,N : INTEGER; 

X,Y : REAL; 
PROCEDURE SWAP (VAR P,Q : REAL); 

VAR TEMP : REAL; 

BEGIN 

TEMP := P; 

P := Q; 
Q := TEMP; 

END; 

BEGIN 

READ (N); 

FOR I := 1 TO N DO 
BEGIN 

READ (X,y); 
IF X > y 

THEN SWAP (X,y); 

END; 

WRITELN ('ARE THE ORDERED PAIRS') 

END. 



22. Convert a niimber of inches into miles, yards, feet, and inches. 
"HOST" 

PROGRAM REG22 ( INPUT, OUTPUT ) ; 
VAR A, B, CD, NUMBER : INTEGER; 

PROCEDURE CONVERT (VAR M,y,F,I,INS : INTEGER); 
BEGIN 



M 


:= INS DIV (1760 * 


36); 


INS 


:= INS MOD (1760 * 


36); 


Y 


:= INS DIV 36; 




INS 


:= INS MOD 36; 




F 


:= INS DIV 12; 




I 


:= INS MOD 12; 





END; 

^GIN 

READ (NUMBER); 

CONVERT (A,B,C,D, NUMBER); 

WRITE(A:U, ' MILES, ',B:U, 'YARDS,'); 

WRITELN(C:1, 'FEET AND' ,D: 2, ' INCHES') 

END. 
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23. Lengths arithmetic. 
"HOST" 

PROGRAM REG23 ( INPUT, OUTPUT) ; 
VAR A,B,C,D, TOTAL : INTEGER; 

PROCEDURE CONVERT (VAR M,Y,F,I,INS : INTEGER); 
BEGIN 



M 


•= INS DIV (1760 * 


36); 


INS : 


= INS MOD (1760 * 


36); 


Y 


= INS DIV 36; 




INS . 


= INS MOD 36; 




F 


= INS DIV 12; 




I ! 


•= INS MOD 12; 





END; 

FUNCTION INCHES (M,Y,F,I : INTEGER) : INTEGER; 
BEGIN 

INCHES := (((M * I76O) + Y) * 3 + F) * 12 + 

END; 
BEGIN 

READ (A,B,C,D); 

TOTAL := INCHES (A,B,C,D); 

CONVERT (A,B,C,D,TOTAL); 

WRITELN (*SUM IS\ TOTAL, INCHES - I.E.); 
WRITE(A:U,' MILES,', B:U,' YARDS,'); 
WRITELN(C:1, ' FEET AND', D:2' INCHES') 

END. 
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2U. Print s\m of N values. Each value is the average of a set of 
numbers. 

"HOST" 

PROGRAM REG2U (INPUT, OUTPUT ) ; 

CONST WIDTH = 10; 

VAR I, N, COUNT : INTEGER; 

LINEAVERAGE, TOTAL : REAL; 
PROCEDURE DRAWALINE; 

VAR I : INTEGER; 
BEGIN 

FOR I := 1 TO WIDTH DO 
WRITE ('-'); 
WRITELN 

END; 

FUNCTION AVERAGE (READCOUNT : INTEGER) : REAL; 
VAR I : INTEGER; 

TOTAL, NUM : REAL; 
BEGIN 

TOTAL := 0; 

FOR I := 1 TO READCOUNT DO 
BEGIN 

READ (NUM); 

TOTAL : = TOTAL + NUM 

END; 

AVERAGE := TOTAL/ READCOUNT 

END; 

BEGIN 

TOTAL := 0; 
READ (N); 

FOR I := 1 TO N DO 
BEGIN 

READ (COUNT); 

LINEAVERAGE := AVERAGE (COUNT); 
WRITELN (LINEAVERAGE : WIDTH : 2); 
TOTAL := TOTAL + LINEAVERAGE 

END; 

DRAWALINE; 

WRITELN (TOTAL : WIDTH : 2); 
DRAWALINE 

END. 
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2^. Scalar enumeration tyi>es - defining a new type. 
"HOST" 

PROGRAM REG25 ( INPUT, OUTPUT ) ; 

TYPE SUIT = (CLUB, DIAMOND, HEART, SPADE); 

DAY = (SAT, SUN, MON, TUE, WED, THUR, FRI); 

PRICOLOR = (RED, YELLOW, BLUE); 
FLOOR = (GROUND, LOWFIRST, FIRST); 
VAR PAYDAY, DAYOFF, : DAY; 
TRUMP : SUIT; 

PAINT : PRICOLOR; 
COATS : INTEGER; 
UNDERCOAT : BOOLEAN; 

BEGIN 

CASE PAINT OF 
RED : 

BEGIN 

COATS := 1; 
UNDERCOAT := FALSE; 

END; 
YELLOW : 

BEGIN 

COATS := 2; 
UNDERCOAT := TRUE 

END; 
BLUE : 

BEGIN 

COATS := 2; 
UNDERCOAT := FALSE 

END 

END; 

END. 



26. Read numbers and calculate their divisors. 
"HOST" 

PROGRAM REG26 ( INPUT, OUTPUT ) ; 
VAR NUMBER, DIVISOR : INTEGER; 

BEGIN 

REPEAT 

READ (NUMBER); 
IF NUMBER > 0 

THEN 

BEGIN 

WRITELN ('THE DIVISORS OF', NUMBER,' ARE':'); 
FOR DIVISOR := 2 TO NUMBER DO 
IF NUMBER MOD DIVISOR = 0 
THEN WRITELN (DIVISOR) 

END 

UNTIL NUMBER <= 0 

END. 
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27 • Copying one or more lines of text from one file to another. 
"HOST" 

PROGRAM REG27 ( INPUT, OUTPUT ) ; 
VAR OLDFILE, NEWFILE : TEXT; 

CH : CHAR; 

ERROR : BOOLEAN; 

N,I, CURRENTLINE : 1..MAXINT; 
PROCEDURE COPYLINE (VAR FX, F2 : TEXT); 
VAR CH : CHAR; 
BEGIN 

WHILE NOT EOLN (Fl) DO 
BEGIN 

READ (Fl, CH); 

WRITE (F2, CH) 

END; 

READLN (Fl); 
WRITELN (F2) 
END; {PROCEDURE COPYLINE) 

BEGIN {MAIN PROGRAM} 
RESET (OLDFILE); 
REWRITE (NEWFILE); 
CURRENT := 1; 
ERROR := FALSE; 
REPEAT 

READ (CH); 
IF CH < > 'E' 

THEN READ (N); 
READLN; 

IF (CH = 'E*) OR (CH = 'O OR (CH = 'S') 
OR (CH = 'I') 
THEN 

CASE CH OF 
: 

BEGIN 

ERROR := N < CURRENTLINE; 

FOR I := 1 TO N - CURRENTLINE DO 

COPYLINE (OLDFILE, NEWFILE); 

CURRENTLINE := N 

END; 
♦S' : 
BEGIN 

ERROR := N < CURRENTLINE; 

FOR I := 1 TO N-CURRENTLINE DO 

READLN (OLDFILE); 

CURRENTLINE : = N 

END; 
♦I' : 

FOR I := 1 TO N DO 

COPYLINE (INPUT, NEWFILE); 
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'E' : 

WHILE NOT EOF (OLDFILE) DO 

COPYLINE (OLDFILE, NEWFILE) 

END 

ELSE ERROR := TRUE 
UNTIL (CH = '£*) OR ERROR; 
IF ERROR 

THEN WRITELN ('ERROR IN EDIT') 

END. 



28. Print a table of powers of integers. 
"HOST" 

PROGRAM REG28 ( INPUT, OUTPUT ) ; 

VAR TABLESIZE, BASE, SQUARE, CUBE, QUAD : INTEGER; 

BEGIN 

READ (TABLESIZE); 

FOR BASE ;= 1 TO TABLESIZE DO 

BEGIN 

CUBE := BASE * SQUARE; 

QUAD : SQR (SQUARE); 

WRITE (BASE, SQUARE, CUBE, QUAD); 

WRITELN (1 /BASE, 1/SQUARE, 1/CUBE, 1/QUAD) 

END; 

END. 



29. Calculate area of a polygon. 
"HOST" 

PROGRAM REG29 ( INPUT, OUTPUT ) ; 
VAR V : INTEGER; 
TYPE R = RECORD 

aa: integer; 

b,c : real; 

END; 
FUNCTION A:R; 
BEGIN 

A.aa := 3; 

a.b := 0.6; 

a.c := 0.2; 

END; 
BEGIN 



WITH A DO 

V := aa; 
WRITELN (V) 

END. 
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Appendix C 

Input/Output Characteristics 



Introduction 

Physical files are either disc files or I/O devices on the 6UOOO system. 
The I/O devices keyboard, display, printer, and displayl may only be as- 
sociated with TEXT files. The I/O device null, and disc files, may be 
associated with either text or non-text files. 



Disc Files 

All disc files on the 6UOOO system consist of a list of variable length 
records, and can range from 2 to 256 bytes in length. The length of a 
physical record is always an even number of bytes. The term "logical 
record" refers to the data in one component of the file. That is, given 
a FILE OF T, a logical record consists of one data item of type T. 

The system performs a mapping of logical records to physical records 
during oxi output operation, and a mapping of physical records into logi- 
cal records during an input operation. The details of this mapping are 
explained below for both text files and non-text files. 

Text Files 

Each component, or logical record, of a text file is of type CHAR. Since 
text files are also structured into lines , the system maps each line into 
a physical disc record, with the following implications: 

a. A line in a text file may never be longer than 256 bytes. 

b. A line always consists of an even number of characters. The 
system generates an extra character, i.e., a blaink, if neces- 
sary, to pad the line to an even number of characters when a 
WRITELN is executed. 

c. A line can never have zero characters. For example, if the 
statements to WRITELN occur consecutively. 



WRITELN (output); 
WRITELN (output); 



the record produced by the second WRITELN will consist of two 
blaoiks. 
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Non-text Files 

The mapping of logical records to physical records takes place as 
follows : 

a. Each logical record is written to one physical record if the 
length of the logical record is 256 bytes or less. 

b. The system writes as many 256 byte physical records as are 
needed to satisfy the logical record length* Any remaining 
portion of the logical record is written into a shorter physi- 
cal record. 

c. The system always writes the same number of bytes for each 
record. If the file component is a record with variants, then 
the number of bytes in the longest variant is written. 

The system considers the length of the record to be the length of the 
logical record when reading a non-text file. The record length, then, is 
determined by the program and not by the data in the file. The system 
reads physical records until enough data is obtained to fill a logical 
record. 

Problems will occur if data is written using a file variable with one 
component type of a particular length, and a later attempt is made to 
read the data using a file variable with a component type that has a dif- 
ferent length. The data in the physical records will not map properly 
into the logical records and results will be unpredictable. 

I/O Devices 



Null 

"Null" is a nothing device. Used for input, null always produces an end- 
of-file condition. Used for output, null functions as a bit bucket. 



Keyboard 

"Keyboard" uses the commaind line area at the bottom of the 6UOOO screen 
for keyboard input. An end-of~file condition is produced by entering a 
zero-length line. In order to clear an end-of-file condition, if it is 
inadvertently produced, the following may be done: 

Assume that F is a file assigned to "keyboard"; 
IF EOF(F) THEN RESET(F); 

The cursor will always appear in the command area. The RETURN key ter- 
minates a line and causes data to be sent to the program. The BACK 
SPACE, CLR LINE, INSERT CHAR, DELETE CHAR, LEFT ARROW, RIGHT ARROW, and 
RECALL keys may be used to prepare and edit text in the command line. 
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ROLL UP, ROLL DOWN, NEXT PAGE, PREV PAGE, and TAB keys have no effect. 
No "control" character has any special meaning. 



Display 

The "display device" is 80 characters wide and I8 lines high. Data is 
always written to the bottom line of the display. The display rolls up 
and the data on the top line is lost to view. Lines wider than 80 
characters are tnmcated and the additional data is not displayed. Time 
delays take place after each line is written to ensure that the display 
does not roll up too rapidly. 



The display hardware is sensitive to certain characters that are used for 
special effects. The following bit patterns are significant: 



lOUIXXBX 



where: X = don't care; 

U = 1 turns on underlining; 
U = 0 turns off vmderlining; 
1=1 turns on inverse video; 
1=0 turns off inverse video; 
B = 1 turns on blinking video; 
B = 0 turns off blinking video. 



llllXXOX causes the display to be blanked to the end of the line. 

IIIIXXIX causes the display to be blanked to the end of the display 
screen. Should this character be used, nothing beyond it, including the 
message line, commaoid line, and softkey line will be visible. 



Printer 



The "printer" has a maximum line width of 132 characters. Data in lines 
wider than 132 characters will be lost. The printer will form feed if 
the standard procedure PAGE is used. 



Display 1 

"Displayl" is similar to the "display" device in that data is shown in 
the area at the top of the screen. 



a. display may only be associated with a text file. 

b. text files have a maximum line length. 

c. The maximum line length defaults to 2^0 characters, but is 
setable from 1 to 256 characters with the "$LINESIZE$" option. 
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d. If more than the maximum nviraber of characters are written 
without a WRITELN being issued, a V?RITELN will be automatically 
generated . 

e. Cursor positioning, using control characters to the displayl 
device is not a WRITELN. A common error occurs when control 
characters are sent to displayl to reset the cursor without a 
WRITELN. In the following example, some data will appear on 
line 2 of the display because of the automatic WRITELN 
generated by HOST Pascal. 

FOR I := 1 TO 100 DO 
BEGIN 

WRITE (CHR (19^)); {HOME CURSOR) 

WRITE ri WANT THIS DATA TO APPEAR ON LINE 1'); 

END; 

The above FOR statement will operate correctly if the second 
WRITE is replaced by a WRITELN. 



The "display_cursor" , although invisible, determines where the next 
character received by displayl will be shown. 

a. If the display_cursor is located in the 80th column of a line 
aind another data character is to be displayed, then the cursor 
wraps to the first column of the next line. 

b. If the display_cursor is on the l8th line and the dis- 
play_cursor is forced to the next line, then the displayed data 
is rolled up, the top line is lost, the iBth line is blanked, 
and the display^cursor remains on the iBth line. 

c. After performing a REWRITE or APPEND to a file associated with 
"displayl", the display_cursor is positioned in the upper left 
hand comer, i.e., the home position. 

d. The following characters are not displayed by "displayl" but 
are treated as control characters: 

chr(192) - SET X,Y - The next two characters received by 
"displayl" are not displayed but are used to set the column 
axid row, respectively, of the display_cursor . The columns 
are numbered 0 thru 79 • If the column character is greater 
than 79 » the column will be set equal to 79* The rows are 
numbered 0 thru 17. If row character is greater than 17* 
the row will be set equal to 17* 

chr(193) - CARRIAGE RETURN ~ The display^cursor is set 
to the beginning of the current line, i.e., with column 
equal to zero. 
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chr(l9U) - HOME - The display^cursor is set to the 
"home" position, i.e., the upper left comer of the screen, 
with both row and column equal to zero. 

chr(195) - CLEAR TO END OF LINE - The screen is blanked 
from the current display_cursor position to the end of the 
present line. The position of the display_cursor is 
unchanged. 

chr(196) - CLEAR TO END OF SCREEN - The screen is 
blanked from the current display_cursor position to the end 
of the 19th line of the screen. The position of the dis- 
play_cursor is unchanged. 

chr(197) - CLEAR SCREEN - The entire data area of the 
screen is blanked. The position of the display_cursor is 
unchanged. 

chr(198) - BINK - The audible alarm is sounded. 

chr(199) - CURSOR RIGHT - The display_cursor is moved 
right one position. If the cursor is at the end of the 
line, a wrap to the next line occurs. If the cursor wraps 
dJid is on the bottom line, the display is rolled up one 
line . 

chr(200) - CURSOR LEFT - The display_cursor is moved 
left one position. If the cursor is in the first column of 
a line, it is moved to the last column of the previous 
line. If the cursor is in the home position nothing 
happens . 

chr(201) - CURSOR UP - The display_cursor is moved to the 
previous line with the column unchanged. If the cursor is 
on the top line of the display nothing happens. 

chr(202) - CURSOR DOWN - The display_cursor is moved to 
the next line with the column unchanged. If the cursor was 
on the bottom line of the screen the screen is rolled up 
one line. 

e. Characters having the bit pattern IIIIXXIX are changed to 7FH. 
This bit pattern would cause the display to blank-to-end-of- 
display amd is filtered out. 

f. All other characters are displayed unchanged. For easy 
reference the display enhancement bit pattern is as follows: 
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lOUIXXBX 

where: X = don't care; 

U = 1 turns on underlining; 
U = 0 turns off underlining; 
1=1 turns on inverse video; 
1=0 turns off inverse video; 
B = 1 turns on blinking video; 
B = 0 turns off blinking video. 

In addition, the bit pattern llllXXXX causes the display to be 
blanked to the end of line. 



RS-232 

The RS-232 I/O device performs serial input and output in the 
asjmchronous mode. The hardware interface is either the RS-232 port or 
the current loop connector. A thorough discussion of the serial hardware 
interface may be found in the HP 6UOOO System Configuration and 
Installation Reference Manual. 

Input and output using the RS-232 port presents more problems to the 
programmer than I/O using disc files and other devices. A list of the 
extra or exaggerated problems follows. 

a. Both input and output operations must be done on the same 
device. In the case of full duplex protocols, input and output 
operations occur simultaineously under the control of a Pascal 
program which is an inherently sequential language. 

b. Since the behavior of the device at the other end of the com- 
munications link is beyond the control of the 6UOOO system, the 
program must be able to deal with exception conditions. The 
problem of no response or timeout must be hauidled. 

c. Input and output operations must take place within real time 
limits. A more thorough discussion of timing considerations is 
presented later in this section. 

d. The communications link has a much higher error rate than other 
peripheral devices. 

e. Modem signals must sometimes be manipulated by the program. 

HOST Pascal has features to solve these problems in most cases. A 
detailed description of the RS-232 implementation and an example program 
are shown at the end of this Appendix. 
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Hardware Options 

The following hardware options are selected by switches on the 6UOOO I/O 
board. See the 6UOOO Configuration and Installation Reference Manual for 
details. 

RS-232C or current loop interface. 

20 ma. or 60 ma. current loop. 

Internal or external clock source. 

Baud rate using internal clock. 

Full duplex or half duplex modem control. 

Number of data bits in character. 

Character parity bits (none, odd, or even). 

Number of stop bits in character. 



Receiver and Transmitter 

It is useful to think of the RS-232 I/O device as two separate devices, a 
receiver and a transmitter that share the same hardware resource. The 
HOST Pascal progrsun controls the RS-232 transmitter using one TEXT vari- 
able and the RS-232 receiver using a different TEXT variable. The fol- 
lowing program fragment illustrates this arrautigement . 

VAR RECEIVER: TEXT; TRANSMITTER: TEXT; BEGIN RESET (RECEIVER, *rs 232* ) ; 
REWRITE (TRANSMITTER, Vs232' ) ; 

Since HOST Pascal allows a file variable to open for either reading or 
writing but not both, the use of two text files is required. The RESET 
procedure associates the text file RECEIVER with the RS-232 receiver 
device while the REWRITE procedure associates the text file TRANSMITTER 
with the RS-232 transmitter device. Normally, HOST Pascal would produce 
a r\m time error if two file variables were associated with the same 
device. An exception to this rule is allowed with RS-232 if one file is 
open for reading and another for writing. 



Character and Protocol Transparency 

The RS-232 device is designed to be transparent to any character code or 
communications protocol. The RS-232 receiver does not recognize any 
character as a control character and the RS-232 transmitter does not au- 
tomatically send any control characters. The recognition or sending of 
control characters must be done in the HOST Pascal program. This ar- 
rangement has the following implications: 

The end-of-file condition for the RS-232 device is not defined. If 
F is a text file associated with the RS-232 receiver, then EOF(F) 
always returns FALSE. If F is associated with the RS-232 transmit- 
ter, then EOF (F) will always return TRUE. Recognizing or producing 
end-of-file conditions must be accomplished by the HOST Pascal 
program. 
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Line markers are not defined for the RS-232 device. If F is a text 
file associated with RS-232 receiver, then EOLN(F) always returns 
FALSE. If F is associated with the RS-232 transmitter, then 
WRITELN(F) has no effect. Recognizing or producing line markers or 
record delimiters must be accomplished by the HOST Pascal program. 



Circular Buffers 

There is a circular data buffer associated with the TEXT variable that is 
open to the RS-232 receiver. There is another circular data buffer as- 
sociated with the TEXT variable that is open to the RS-232 transmitter. 
These data buffers are located in the Device Control Block (DCB) that is 
associated with all file variables. (See Chapter 8, Table 8-2, for more 
information. ) 

The size of the DCB, and therefore the size of the circular buffer, is 
controllable through the use of the $BUFFERS n$ compiler option, the same 
as for other files. The value of n may be 1, 2, 8, or I6 which 
results in a circular buffer size of 128, 256, 512, 102U, or 20^+8 words, 
respectively. In general, one word in the buffer can hold one character 
of data and any error information associated with it. 

These circular buffers accomplish several things. When receiving, it al- 
lows higher speed operation. Typically, some received characters require 
only brief processing while others initiate lengthy processes. The HOST 
Pascal prograim does not have to process each character as soon as it is 
received but need only keep up with the average rate of data input. It 
also allows simultaneous transmitting and receiving in full duplex 
protocols. When one does a WRITE operation, the output data is stored in 
the circular buffer, transmission is initiated, and the WRITE procedure 
returns immediately. The HOST program can then do other processing, in- 
cluding receiving, while transmission is taking place. The programmer 
can use the standard function LINEPOS to determine the number of data 
characters in either circular buffer. 



TIMEOUT(F,T) Procedure 

There is a new predefined procedure that allows the HOST Pascal program 
to deal with the case of no input data to the RS-232 receiver. The pro- 
cedure TIMEOUT(F,T) specifies the time interval for waiting for a charac- 
ter to be received on the RS-232 device. If no data, is received in the 
specified interval, a "timeout" condition occurs and the READ procedure 
returns control to the HOST Pascal program after setting the I/O result 
code to specified value. The HOST Pascal program calls the predefined 
function lORESULT to determine whether data was received or a timeout 
occurred. 

The procedure TIMEOUT(F,T) has no effect unless the text file F is open 
for reading to the RS-232 device. The integer expression T specifies the 
time interval as a number of clock "ticks". A "tick" is either l/60th or 
l/50th of a second depending on the AC line frequency. After TIMEOUT is 



C-8 



Model 6il8l7A 
HP6UOOO 
HOST Pascal 



called, the specified time interval remains in effect xintil either 
another call to TIMEOUT is made or the file F is closed. If the value of 
T is negative, then timing is disabled and the timeout interval is effec- 
tively infinite. 

Example: 

SEXTENSIONS ON$ VAR 
F: TEXT; 

BEGIN RESET(F;rs23r); TIMEOUT(F,120); 

In the example, the timeout interval is set to 120 "ticks" which is 2.0 
seconds if the AC line frequency is 60 Hz. or 2.U seconds if the AC line 
frequency is 50 Hertz. TIMEOUT is an extension to HP Standard Pascal and 
requires the $EXTENSIONS 0N$ compiler option to be in effect. 



RS-232 Receiver Operation 

The basic operation of the RS-232 receiver is as follows: 

1. When a file is opened for input to the RS-232 (e.g., 
RESET(F,'rs232');), the circular buffer is reset to indicate 
empty and the receiver hardware is enabled. The timeout inter- 
val is initialized to -1 which specifies an infinite time. 
Subsequent calls to TIMEOUT can be made to change this value. 

2. As characters are received, the character is combined with any 
error indications associated with the character and put into a 
word in the circular buffer. Possible error indications are 
BREAK, overrun error, framing error, and parity error. 

3* If the circular buffer contains only one free word, then the 
character/error data is not stored. Rather aji error code in- 
dicating buffer overflow is stored and the buffer becomes full. 
If characters are received after the buffer is full, they are 
discarded but there will always be a buffer overflow indication 
when any data is lost. 
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k. The READ(F,CH) procedure where CH is a CHAR variable is used to 
remove character/error data from the circular buffer. If no 
data is in the buffer, this procedure will wait imtil a charac- 
ter is received or until the interval specified by TIMEOUT has 
elapsed. The character data is put into CH and the error infor- 
mation is used to set the value for a subsequent call to 
lORESULT. lOKESULT returns the following values: 

0 -No error. CH contains the received data. 

15 -Timeout. CH contains CHR(O). 

16 -Buffer overflow. CH contains CHR(O). 

17 -Break received. CH contains CHR(O). 

18 -Framing error. CH contains the received 

19 -Overrun error. CH contains the received data. 

20 -Parity error. CH contains the received data. 

5. The predefined procedure LINEPOS(F) will return the number of 
data characters in the circular buffer at any time. 

6. When a file open for reading to the RS-232 device is closed, the 
receiver hardware is disabled. 



RS-232 Transmitter Operation 

The general operation of the RS-232 transmitter is as follows: 

1. When a file is opened for output to the RS-232 device, the cir- 
cular buffer is reset to indicate empty and the transmit 
hardware is disabled. 

2. When an output operation (PUT or WRITE) is done, the output data 
characters are put into words in the circular buffer and the 
transmitter hardware is enabled. If there is space in the cir- 
cular buffer for all the data, the PUT or WRITE procedures 
return immediately. Otherwise, they will wait \mtil space be- 
comes available before returning. Space will become available 
as the transmitter hardware removes the data from the buffer aind 
sends it. 

NOTE 



The trainsmitter hardware will not actually send 
data until the CTS (Clear To Send) modem signal 
is high. See the HP 6UOOO System Overview 
Manual for details. 
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3. After the transmitter hardware sends a character, it looks in 
the circular buffer for another. If more data is available, it 
is transmitted. Otherwise, the transmitter hardware is 
disabled. 

U. The predefined function LINEPOS(F) may be used to determine the 
number of characters remaining in the buffer at any time. The 
value returned by LINEPOS is the number of characters in the 
circular buffer plus the number of characters contained in the 
transmitter hardware registers. 

5. Whenever a file open for writing to the RS-232 is closed, the 
close procedure will wait until all characters in the circular 
buffer have actually been sent before finishing. 



Modem Control 

The modem signals DTR (Data Terminal Ready) and RTS (Request To Send) can 
be controlled by the HOST Pascal. Note that RTS is only controllable if 
the full/half duplex switch on the I/O board is in the half duplex posi- 
tion. Otherwise, RTS is always high. The normal state for the DTR and 
RTS signals is high. When a HOST Pascal program is run, the RS-232 
hardware is initialized and both DTR and RTS are set low. The DTR signal 
is set high when a file is opened for reading to the RS-232 device. The 
DTR signal remains high until the file is closed. Thus the program can 
control DTR by alternately calling RESET and CLOSE. The RTS signal is 
set high when a file is opened for writing to the RS-232 device. The RTS 
signal remains high until the file is closed and all characters in the 
traaismitter buffers have been sent. Thus the program odJi control RTS by 
alternately calling REWRITE and CLOSE. Note that the RS-232 transmitter 
hardware will not send data until the CTS (Clear To Send) input signal is 
high. 



Restricted Use of READ and READLN 

When a text file F is open for reading to the RS-232 device, many forms 
of READ(F,V) and READLN(F) are not allowed. A run-time error will result 
if the type of variable V is integer, real, longreal, string, or PAC. 
READLN is always illegal with the RS-232 device. READ is only allowed 
when the variable V is compatible with type CHAR. The are two reasons 
for these restrictions. READLN and READ of string and PAC variables 
depend on the EOLN condition in their definitions. However, line markers 
are not defined for the RS-232 device. READ with integer and real vari- 
ables is prohibited because the interaction of mult i- character input and 
timeout timing is difficult to define in a straight forward way. 



Timing Considerations 

In data communications programs written in HOST Pascal, there are three 
areas Tdiere real time constraints must be considered. 
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1. When receivings the system software must remove a character from 
the receiver hardware register before the next character is 
received. If this does not happen fast enough » the result is 
called an overrun error. The critical time interval here is the 
character transmission time which is a function of baud rate. 
At 110 bps, the character time is about 100 ms. At 96OO bps, 
the character time is about 1 ms. 

2. When receiving, the HOST Pascal program must remove data from 
the circular buffer faster, on the average, than it is received. 
If this does not happen, eventually the circular buffer will be- 
come full and the result is called a buffer overflow error. The 
average rate that characters are received is a function of baud 
rate and, also, the communications protocol of the sending 
device. That is, if the sender sends blocks of data and pauses, 
the average transmission rate is less than if the sending was 
continuous. The average rate that characters are removed is a 
fxmction of the HOST Pascal program; how much time it spends 
processing each character. 

3. In some communications protocols, one station sends a message to 
another station sind expects a response within a certain time in- 
terval. If the response is not received within the time limit, 
the result is a timeout error. The critical time interval is a 
fxinction of the particular computer system being used. 
Typically, this time is on the order of several seconds. 

Given the above problems, there follows a list of recommendations to 
avoid or overcome them. Since data communications systems are so varied, 
meaningful limits on pei'formance or speed cannot be formulated. 
Therefore, the following discussion is general. 

Overrun errors should only be a problem at speeds of 2UOO bps and above. 
They cam be nearly eliminated by avoiding disc I/O operations while data 
is begin received. That is, at high speed, pick a communications 
protocol and design your HOST Pascal program so that disc operations and 
RS-232 receiving can happen at alternate times. 

The problem of receive buffer overflow is complicated with many factors 
involved. One important factor is communications protocol. At speeds of 
2UOO bps and above, it is probably impossible to do any meaningful 
processing of received data if transmission is continuous. The HOST 
Pascal program simply cannot process the received characters fast enough. 
One must use a communications protocol that sends data in bursts and then 
pauses so that the HOST program can catch up with its data processing. 

Using a communications protocol that divides the transmissions into 
blocks has another advantage. One can then design a program where is 
main receiving loop is very brief. Typically, the main receiving loop 
need only call the function lORESULT to check for errors, store the 
received character in memory, and check if the character is a transmis- 
sion terminator. Time consuming functions cajn be performed in the time 
interval between blocks. Examples of time consuming functions are I/O 
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operations to the disc, printer or display, computations of CRC sums, 
data reformatting, and data interpretation. In extreme cases, avoid 
procedure and fxinction calls in favor of in-line code. Also, avoid doing 
READ or WRITE operations with integer or real data to text files. The 
conversion to and from internal format to character format requires con- 
siderable computation. 

Example Program of RS-232 Implementation 

"HOST" 

< > 

< THIS PROGRAM SIMULATES A "DUMB" TERMINAL. IT ACCEPTS DATA ) 

< FROM THE KEYBOARD AND SENDS IT ON THE rs232 DEVICE. THE } 
{ RECEIVING STATION ECHOES THIS DATA. THE PROGRAM RECEIVES } 
{ DATA FROM THE rs232 DEVICE AND DISPLAYS THE PRINTABLE } 
{ CHARACTERS ON THE displayl DEVICE. } 

{ } 

{ THE REMOTE STATION USES THE ENQ/ACK PROTOCOL. THE REMOTE } 

{ STATION SENDS ENQ AFTER EVERY 80 CHARACTERS OF OUTPUT DATA. } 

{ THE PROGRAM RESPONDS WITH ACK WHEN IT IS READY TO ACCEPT 80 } 

{ MORE CHARACTERS. } 

< } 
{ GENERAL FLOW } 
{ 1. INITIALIZATION (OPEN FILES) } 
{ 2. READ THE KEYBOARD. IF KEYBOARD DATA IS '\\% END PROGRAM.} 
{ 3. TRANSMIT THE KEYBOARD DATA OVER THE RS232 FOLLOWED BY CR. } 
{ k. RECEIVE AND DISPLAY DATA FROM RS232 UNTIL DCl CHAR IS ) 
{ RECEIVED OR UNTIL THE TIMEOUT INTERVAL HAS ELAPSED. ) 
{ 5. GO TO 2. } 
{ > 

$EXTENSIONS 0N$ 
PROGRAM TTERM; 
CONST 

(CONTROL CHARACTERS FOR THE displayl DEVICE) 

INVERSE = CHR(lUU); 

ENH_OFF = CHR(128); 

CARRET = CHR(193); 

CLRSCREEN = CHR(197) ; 

BINK = CHR(198); 

CURLEFT = CHR(200); 

CURDOWN = CHR(202); 

(CODES RETURNED BY THE FUNCTION lORESULT) 

INOERROR = 0; 

lENDOFFILE = 1; 

ITIMEOUT = 15; 

IBUFOFLO = 16; 

IBREAK =17; 

IFRAMERR = 18; 

lOVERRUN =19; 

IPARITY = 20; 
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{ASCII CONTROL CHARACTERS} 

ENQ = CHR(5); 

ACK = CHR(6); 

BELL = CHR(7); 

BS = CHR(8); 

LF = CHR(IO); 

CR = CHR(13); 

DCl = CHR(17); 

DEL = CHR(127); 

VAR 

D0NE1,D0NE2: BOOLEAN; 
CH: CHAR; 
STR: STRING[2U0]; 
KBD,DISP: TEXT; 
$BUFFERS 2$ 

INRS,OUTRS: TEXT; 

BEGIN 

< 1. INITIALIZATION } 

I ^ 

RESET(KBD, 'keyboard' ) ; 
REWRITE (DISP, 'displayl') ; 
RESET (INRS,'rs 232'); 
REWRITE (OUTRS , 'rs232 ') ; 
WRITE (DISP,CLRSCREEN) ; 

TIMEOUT (INRS, 600); <10 SECOND TIMEOUT INTERVAL} 

D0NE2 := FALSE; 

{ 2. READ KEYBOARD. IF DATA IS '\\' THEN END THE PROGRAM. } 

REPEAT 

IF EOF(KBD) THEN 
BEGIN 

RESET(KBD) ; 

STR := "; 

END 
ELSE 

READLN(KBD,STR); 
IF STRPOS('\V ,STR) = 1 THEN 

BEGIN 

D0NE2 := TRUE; 
DONEl := TRUE; 
END 
ELSE 
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{ 3. TRANSMIT THE KEYBOARD DATA FOLLOWED BY A CARRIAGE RETURN ) 
BEGIN 

WRITE ( OUTRS , STR , CR ) ; 
DONEl := FALSE; 
END; 

^ »««««»«««««««»««»»»«»»«««««««»««««««««««#«««««««««««««»«««*««««» ^ 

{ k. RECEIVE AND DISPLAY DATA FRCMl RS232 UNTIL A DCl IS RECEIVED) 
{ OR UNTIL TIMEOUT OCCURS. } 

WHILE NOT DONEl DO 
BEGIN {WHILE} 
$IOCHECK OFF$ 

READ(INRS,CH); 
$IOCHECK 0N$ 

CASE lORESULT OF 
INOERROR: 

BEGIN {NO ERROR} 

IF ORD(CH) >= 128 THEN 

CH := CHR(ORD(CH) - 128); 
CASE CH OF 
' '..DEL: 

WRITE (DISP.CH); 
CR: 
BEGIN 

WRITE (DISP , CARRET ) ; 
END; 
LF: 

WRITELN(DISP); 
BS: 

IF LINEPOS(DISP) > 0 THEN 
WRITE (DISP, CURLEFT) ; 
BELL: 

WRITE (DISP, BINK); 
ENQ: 

WRITE ( OUTRS, ACK); {RESPONSE TO ENQ WITH ACK) 
DCl: 

DONEl := TRUE; 
OTHERWISE 
END; {CASE} 
END; {NO ERROR) 
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ITIMEOUT: 

DONEl := TRUE; 
IBUFOFLO: 

WRITE (DISP, INVERSE, 'BUF' ,ENH_OFF) ; 
IBREAK: 

WRITE (DISP , INVERSE , ' BRK ' ,ENH_OFF ) ; 
IFRAMERR: 

WRITE (DISP, INVERSE, 'FRM' ,ENH_OFF) ; 
lOVERRUN: 

WRITE (DISP , INVERSE , ' OVR ' ,ENH OFF ) ; 
IPARITY: 

WRITE (DISP, INVERSE, 'PAR' ,ENH_OFF) ; 
OTHERWISE 

HALT; 
END; {CASE} 
END; {WHILE} 

{ 5. GO TO 2. } 

UNTIL D0NE2; 
END. 
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